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PRiiFACi. 



This Program Logic Manual (PLM) is a 
detailed guide to the IBM System/36 Disk 
Operating System, On-Line Test Executive 
Program (OLTEP). It supplements the 
program listing by providing high level 
text, label list, tables, and flowcharts. 

This manual is organized in nine 
sections consisting of: 



• Introduction: 



Describes OLTEP 



functions, structure and relationship 
to the system. 

• Text _of _Phas es : A composition of each 
phase making up the executive program. 
The primary phases are in succession of 
use. The support modules are in 
numeric sequence. 

• Charts o f the Phases : S ummar i z ed 
blocks of coding within the program 
units depicted. The charts of the 
primary phases are in succession of 
use. The support module charts are in 
numeric sequence. 

• A PPENDIXES A THROUGH E : Contains the 
label, microfiche and message cross- 
references, and a module directory. 

• G lossary of OLTEP Terms . 

This sectional organization allows quick 
access of pertinent information required by 
the OLTEP program support personnel. 



PREREQUISITE PUBLICATIONS 

Effective use of this manual requires a 
thorough understanding of IBM System/360 
programming concepts. The publications 
providing this information follow. 



Note: Although titles of some DOS 
publications have been simplified, the 
change does not affect the contents of 
the publication. 



IBM System/36 Pr inciples o f Op eration. 
GA22-6821. 



• Concepts and Facilit ies for DOS and 
TOS, GC24-5030. 



• DOS_Da t a _Mangement .Concepts, GC24-3427 

• DOS System Control and Service, 
GC24-5036. 

• Intr odu cti on to DOS Logic, GY 24-5017 

• DOS IPL and Job Control, GY24-508 6 

• DOS Librarian, GY24-5079. 

• 2CS_Linka2Le_Editor, GY2 4-5080. 

• DOS Logica l Transient , GY 24-5152. 

• DOS Superv isor an d Related Transients , 
GY24-5151. 

• DOS Sys te m Service Pro grams. GY24-5133 

RELATED PUBLICATION 

• DOS_OLTEP, GC 24-50 8 6. 

Titles and abstracts of other related 
publications are listed in the IBM 
Sys te m/360 and System/370 Bibliography , 
GA22-6822. 
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INTRODUCTION 



OLTEP FUNCTION 



• Data protection. 



The IBM System/360 Disk Operating System 
provides a set of programs to test I/O 
limits. These test programs and the On-Line 
Test Executive Program make up the On-Line 
Test System. The On-Line Test Executive 
Program (OLTEP) is an interface between the 
system and the test programs and 
communicates with the operator during the 
running of tests (Figure 1). 



Some uses of DOS OLTEP are: 

• Diagnosing I/O errors. 

• Verifying I/O device repairs and 
engineering changes. 

• Checking I/O devices. 

Some features of DOS OLTEP are: 

• Multiple device testing. 

• Data security. 



OLT 



KbIAIN/cJ/U ■ T- 

Not Active f 

| \ 



• No re-IPL time required. 

• Prompting. 

• Recognize ASCII labels; restore ASCII 
labels. 

• Accessing of error recording 
information. 

• Line connection routine for remote 
terminal testing. 

• SOSP support. 

• RETAIN/370. 

OLTEP operates much like other problem 
programs in the Disk Operating System. It 
is cataloged into the core image library 
and called by standard job control 
statements. When OLTEP is called, it 
notifies the operator that it is active and 
communicates with him during testing. 
OLTEP can run in a batch-only system or as 
a background program in a multiprogram 
environment. It operates on 24K or larger 

RETAIN/370 Active 



Operator 



OLTEP 



I 



Printer 



J \ 



-► 




RETAIN/370 
Interface (REI) 



Remote Specialist 



1 



+ *- 



DOS 
Supervisor 



Card 
Read/Punch 




Teleprocessing 



Disk 




Figure 1. OLTEP System Relationship 
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systems under DOS (except those with a 6K 
supervisor, which does not support OLTEP). 

You can test an I/O unit with minimum 
interference to other programs running on 
the system. Testing an I/O device 
ordinarily does not interfere with system 
input and output. Any unit being tested, 
except for direct access devices, must not 
be assigned to the foreground partitions. 
Direct access devices, however, may be 
shared. 



for the next device if one is requested and 
is available. Testing continues in this 
manner until all units in the test- run 
definition are tested. 

During testing under control of OLTEP, 
the system error recovery procedures are 
bypassed on the device being tested. OLTEP 
has built-in data integrity safeguards so 
that no data is destroyed and no protected 
data is accessed during testing. 



An OLTEP user language defines and 
controls the test. With this language the 
user selects the devices to test, the test 
sections to run, and the options to 
exercise. He enters this information via 
the console device or in the form of 
control records in the job input stream. 
This information is referred to as the 
test-run definition , and is common to OLTEP 
components for all operating systems. 



OLTEP STRUCTURE 



OLTEP requires a minimum of 14K in the 
background partition and 18K with 
RETAIN/370 active. Because all the OLTEP 
and On- Line Test (OLT) functions exceed 
this allotted space, transient modules are 
loaded and executed as needed. 



You can test multiple devices of the 
same type with no operator interventions 
other than those required for data 
protection and data security. OLTEP loads 
and executes the test sections one at a 
time until all the tests for one device are 
completed. The test sections then repeat 



The background partition is divided into 
four areas: 

• OLT EP Resident: The OLTEP resident 
area (nucleus) consists of tables, 
pointers, and coding that must reside 
in main storage during OLTEP execution 



OLTEP 
Transient 
Modules • 



OLTs 
(unit tests) 



Core Image 
Library 



DOS Supervusir 



OLTEP 

Resident Area 
(nucleus) 



Transient Manager, tables, 
constants, etc. 



OLTEP 
Transient Area 

IJZACOMP, 

IJZARSLT, 

IJZADO01, 

IJZADO02, 

etc. 



OLT Area 

T2400A, 
T2400B, 
T2311H, 
T2702A, 
etc. 



RETAIN/370 
Nucleus 



Resident only while 
RETAIN/370 is active. 



Customer Problem 
Program Area 



Customer Problem 
Program Area 



Main Storage 



Figure 2. Storage Allocation 
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Supervisor 



18K (minimum) 

Background 

Partition 



4K 
(minimum) 
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• OLTEP_Tr ansi ent : The transient area is 
reserved for modules that have limited 
use and need not be resident. One or 
more transient modules can be in main 
storage at a given time. These 
modules, when needed, overlay 
previously loaded modules that are no 
longer being used. 

• QLT Area: One area of at least 4K is 



reserved for the OLT. 



• RETAIN/370 Interface (RED: 



The 



RETAIN/370 interface, when active, 
occupies the last UK of the background 
partition. 



The initial communications interval 
automatically occurs when OLTEP is 
first called in, unless the test-run 
definition is entered by card. At 
this time, the initial test-run 
definition is entered. 

You can invoke an interr upt 
cqmmunications_interval by pressing 
the interrupt key on the console. 

The first-error_communications 
interval occurs when an error is 
encountered during a test. The 
operator can suppress it by entering 
NFE (No First Error) as an option in 
the test-run definition. 



ON-LINE TESTS (OLTS) 



OLTs are called into main storage for 
execution by the scheduler portion of the 
OLTEP nucleus. Tests normally do not 
exceed 4K. However, those that do are 
loaded if the allotted background partition 
is large enough. If an OLT requires 
greater than UK and there is not sufficient 
space for the OLT, OLTEP generates a 
message and proceeds to run the next OLT 
(if any). 

OLTEP allows the OLT to be divided into 
a root segment and associated test modules. 
Although the root segment must remain in 
main storage for the duration of a 
particular test, the supporting test 
modules can be loaded from the core image 
library as they are needed. 

Information about individual tests 
appears in the writeup that accompanies 
them. 

Note: Device tests for tape that are 
run under OLTEP are for the physical 
device itself rather than for any 
control unit to which a device may be 
attached. 



The test_com£letion_communicatiojis 
iHt§O^Ll automatically occurs when the 
specified testing procedure ends. 



DATA PROTECTION 



OLTEP assumes much of the responsibility 
for the protection of customer data. The 
data protection modules within OLTEP 
protect customer files and storage during 
the on-line tests. Objectives of the data 
protection modules in the order of their 
priority are to: 

1. Protect customer data. 

2. Allow effective testing within 
constraints of data protection. 

3. Minimize manual interventions. 

All requests for device testing are 
channeled through the data protection 
modules. The following sections show the 
data protection measures invoked for 
specific device types. 



OPERATOR COMMUNICATION 



All Devices 



OLTEP gives the operator maximum control in 
running the tests. If a console device is 
assigned to the system and you do not 
choose to enter the test-run definition by 
card, you can establish a communicati ons 
interval. Once the communications interval 
is initiated, OLTEP issues a message 
requesting you to enter the test-run 
definition. At this time, you can enter or 
change the testing procedure or end the 
test by entering CANCEL. The four methods 
of initiating a communications interval 
are: 



A device ready check is performed on all 
devices to satisfy the ready requirement 
for the tests and to allow execution of the 
data protection checks. If the device is 
not ready, a message containing sense 
information and the channel status word 
(CSW) is issued. The operator is then 
given options to control further testing of 
the device. 

N ote : For a detailed description of 
the messages and replies, see the DOS 
OLTEP publication listed in the 
Preface. 
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Taj3e_Devices 



^i^§2t_5:22§§§_§t9.^S§_De vices 



Before a tape device is tested, OLTEP makes 
three checks: 

1. Standard Label. OLTEP checks for a 
standard label to ensure a test volume 
is mounted. If a standard label is 
not recognized, OLTEP checks for a 
standard label in ASCII mode. If a 
standard label is not recognized at 
this time, a message is issued stating 
that a nonstandard labeled tape is 
mounted. The operator is then given 
the option to bypass the test, retry 
the test after mounting a different' 
tape, or to proceed testing with the 
tape that is mounted. 

Note: If no bit pattern is read (tape 
is new or clean), OLTEP will read to 
the end of the reel, rewind, and 
retry. To avoid this, some bit 
pattern must be written on new or 
clean tapes. 

2. Security. OLTEP checks the security 
byte in the header. If on, a message 
is issued stating the volume cannot be 
used as a scratch. The operator can 
bypass the test or retry the test 
after mounting a different tape. 

3. Expiration Date. The expiration date 
is checked to determine if it has 
expired. If it hasn' t, a message is 
issued stating the volume cannot be 
used as a scratch. Options are then 
available to bypass the test, retry 
the test after mounting another tape, 
or to proceed testing with that tape. 



The device ready check is the initial data 
protection task performed on all direct 
access devices. If the device is ready 
OLTEP determines the type of DASD being 
tested, and performs the data protection 
tasks for that device type. 



IBM 2311 OR IBM 2314 



A read command is issued by OLTEP to read 
the volume label. If the volume label is a 
standard label, a check is made to 
determine if the volume is security 
protected. If the volume is security 
protected, the volume cannot be used as a 
scratch volume and you are given the option 
to bypass or retry. If the volume is not 
security protected, a check is made to 
determine if the volume serial number is 
CEPACK. If it is not a CE pack, you are 
given the option either to bypass the test 
retry after mounting a different pack, or 
proceed testing in the file protect mode 
(FPM) with the pack that is mounted. If 
the volume serial number is CEPACK and is 
not security protected, testing is allowed 
to proceed in non-file protect mode unless 
the volume is shared with another 
partition. In this case testing proceeds 
in FPM. 

Note: System protection of system secure 
data sets is bypassed and system secure 
data sets may be destroyed if the volume is 
not security protected. 



When testing of a tape device is 
completed or discontinued, and a standard 
label has been successfully read before 
testing, OLTEP rewinds the tape and writes 
a standard label. The following records 
are written: 

r t t 1 

| V0L1 | Volume S/N | 70 bytes of zeros | 
l—„„ + + T .| 

I HDR1 | 48 bytes of j 01 j 27 bytes of | 
| j zeros | j zeros | 
l _± -_ ± j_ j 

OLTEP does not attempt to write a label 
if a standard label was not read at the 
beginning of the test. 



IBM 2321 



If the device to test is an IBM 2321, a 
message is issued asking if a CE volume is 
mounted in bin of the device. A NO reply 
bypasses testing of the device. If the 
reply is YES, OLTEP ensures that the CE 
volume is mounted, then turns control over 
to the test section. If OLTEP finds that 
the volume mounted in bin is not a CE 
volume, it gives the operator the option to 
bypass the test, or retry the test after 
mounting a CE data cell 



Unit Record Devices 



Spa ce Allocation 



The device ready check is the only data 
protection task performed on unit record 
devices. 



Before write testing is performed on a 
direct access device, OLTEP issues a 
message asking if volume data can be 
destroyed. If the reply is YES and the 
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device is not shared, testing proceeds in 
non-FPM. Otherwise, testing proceeds in 
FPM. 

N ote : If testing is in non-FPM, the test 
section may reformat the volume. 
Reformatted volumes are not recognized as 
usable by the operating system. 



File Protect Mode (FPM) 



TIMING TEST PROGRAMS 



Timing test programs require the interval 
timer to make calculations If the 
interval timer is not available on the 
system or is not operative, OLTEP issues a 
diagnostic message, and schedules another 
test. If a timing test is run in a 
multiprogramming environment, the 
performance of any foreground program can 
be affected. 



File protect mode allows testing of a 
direct access device without obtaining or 
destroying volume data. While in FPM, 
OLTEP scans the channel program for any 
Write or Read Data commands that violate 
data security or protection. OLTEP can 
perform only a limited test when operating 
in this mode. 



Non-File Protect Mode (non-FPM) 



When operating in non-FPM, OLTEP allows the 
test to perform Write and Read Data 
operations on the device. Cylinders in the 
CE volume are allotted for this function. 
The same cylinders are used on both CE 
volumes and scratch volumes. 



ACCESSING OF ENVIRONMENTAL RECORDING DATA 



These restrictions apply to timing test 
programs : 



• Timing tests cannot be performed on 
units attached to the multiplex channel 
(channel 0). 

• Timing tests cannot be performed when 
time dependent devices (teleprocessing 
and/or magnetic character reader - MICk 
- devices) are operating within the 
system. 

Diagnostic messages are printed if the 
timing test is attempted under these 
conditions, and the operator can then enter 
another test procedure 

Note: Timing test programs apply to 
System/360 Models 40 and larger. If an 
attempt is made to run a timing test on 
a Model 30, the test program issues a 
diagnostic message, and control returns 
to OLTEP. 



OLTEP can retrieve records from an 
environmental recording data set (Error 
Recording Environmental Procedures (EREP) 
history tape) for use by the OLT. Record 
types that can be accessed by the OLT are: 

OBR Outboard recorder. 
CHI Channel inboard. 
CPU CPU machine check. 

Upon receiving a request from the OLT 
for this information, OLTEP checks to 
I determine if the EREP history tape is 
mounted. If not, OLTEP requests the 
operator to mount the tape on a free device 
and enter the device address. You must 
assign this device to the background 
partition, but you must not include it in 
the test run definition. 

The history tape is searched 
sequentially beginning from where the last 
record was retrieved. However, if the 
RESET=YES parameter in the LOGSCN macro is 
I specified in the LOGSCN macro expansion, 
j the search always starts at the beginning 
of the data set. 



SVC 46 D0S-0LTEP SUPERVISOR CALL 



The SVC 46 was designed for DOS OLIEP 
When it is issued the supervisor checks 
that the request originates from the 
background partition. It then checks for 
OLTEP running in the background, by testing 
the OLTEP bit in the background 
communication region extension. This Dit 
is set by a B-transient, $$B0LTEP, called 
by the OLTEP initializer (IJZADOLT) . 

By issuing the SVC 46, OLTEP is put into 
the supervisor state and is then able to 
issue privileged instructions or store data 
into the supervisor area. At the initial 
issuance of the SVC, register 1 contains an 
entry point in OLTEP, and register 7 
contains an entry point into the 
supervisor, which is used to exit from the 
supervisor state. At the second issuance 
of the SVC, register 1 contains zeros. 
This forces task selection. 
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RETURN CODE USAGE 



In addition, the following OLTS 
convention must be observed: 



Because OLTEP is a multiphase program, it 
must communicate between modules. Also, 
the results of operations requested by the 
OLTs must be passed back from OLTEP. To 
accomplish this, the expected results have 
been equated to hex codes. These hex codes 
are returned via general purpose register 
15 for examination by the requesting phase. 



REGISTER CONVENTIONS 



Registers 0, 1, and 14, 15 can be used by 
the unit test but the contents will b e 

Registers 4, 5, 6, 7, 8, 9, 10, 11 can 
be freely used. 

Register 12 must be reserved for an 
additional base register. 

Note; The CC set by an instruction is 
not preserved through a macro call. 



General register conventions of the 
operating systems are observed. They are: 

GR Usage 

15, Supervisor parameter registers 

1 Parameter list register 

13 Pointer to save area 

14 Return register 

15 Entry point register 



GR Usag,e 

2 Pointer to section control table (set 
by INTLZE macro) . 

3 First base register of CSECT, 
established as base register by the 
INTLZE macro instruction. 

13 Must point to save area when issuing 
a MACRO call. 

15 Return code register. 



RETAIN/ 370 



With the RETAIN/370 feature of OLTEP a 
remote specialist can control and obtain 
the results of the on-line tests. When the 
RETAIN/370 interface is active, OLTEP 
provides a communications path between the 
on-site customer engineer and the remote 
specialist via the remote analysis center* 



Requirements and detailed operating 
procedures for RETAIN/ 370 are found in DOS 
OLTEP, GC24-5086. 
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OLTEP PRIMARY MODULES 



The primary modules that perform the basic 
functions of OLTEP include: 



iDitiali zer ( IJZ ADOLT ) . 

• Sets up common area, 

• Initializes switches. 

• Issues OLTS RUNNING message. 



Scheduler (IJZADO00) . 



• Loads the requested OLT 



Returns control to the 
communications interval module after 
all the specified devices have been 
tested. 



Transient_Manager ( IJAZADO01 ) . 

• Loads requested modules and passes 
their entry point to the requester, 
or enters them as requested 

• Remains resident, maintains a table 
of transient modules available in 
the transient area. 



Communications Interval (IJZAD052), 

• Issues the ENTER DEV/TEST/OPT 
message. 

• Analyzes the operator' s preliminary 
response. 



Data Protection . 

• Performs the necessary data 
protection tasks , on the test 
device, to ensure the customer's 
data is not destroyed. 



6. DECODE Modules. 



• Decodes the reply to the ENTER 
DEV/TEST/OPT message. 



The phases that make up OLTEP are of a 
transient nature. That is, they are called 
in as needed. A phase may be requested at 
different times by different phases. Thus 
to ensure efficiency of core and to prevent 
reloading a loaded phase, all phases are 
loaded and monitored via the transient 
manager. The transient manager is a 
resident phase once it is loaded by the 
initialization of OLTEP. 

All the desired on-line tests are 
scheduled and loaded via the scheduler 
Figure 3 shows the relationship of the 
OLTEP modules. 

The detailed module descriptions that 
follow are in the order, they are initially 
entered. 



OLTEP Primary Modules lb 



Initializer 1 



LT f In 



litializer 2 99 



Transient Manager 



01 



Data Protect 
(2321) 



Data Protect 
(Tapes) 



Data Protect 
(2311/2314) 



TP Line 
Connection 



S~ 



GRAB 



02 



03 



07 



REI Nucleus 10 



GETCONFG 16 



21 



ALOCAT 22 






/ / 


READD 


24 



LOGSCAN 26 



Schedule r 00 



On Line 
Tests 



PLINK 



28 



Device Decode 31 



Test Decode 32 



Option Decode 33 



EXIO 



35 



WAITIO 



36 



CECOM 



37 



DPRINT 39 






/ s 


$MODE 


40 



Convert 



41 



MORECORE 42 



FREECORE 43 



DIO 



44 



jr 



Routine 


47 






X 


/ 


Communications 
Interval 


52 






/ 


s 


Data Protec 
(General) 


t 


56 



Restore Label 57 



Header 60 






/ > 


Description 


61 



CCW 62 






/ s 


csw 


63 



Sense 



64 



Data 


65 
/ 






/ 


y 


Output Wri 


fer 


70 
) 



Prompt Device 


71 
) 






/ 


/ 


Prompt Test 




72 



¥ 



Prompt Option 73 



REI 76 

Initializer *1 






/ / 


REI * 77 

Initializer n 2 . 



REI 
Terminate 



78 



Device Update 85 



External Interrupt > 
Handler 



I/O Interrupt 
Handler 



98 



$DDATE AA 



$DTIME AB 



LETGO 



AC 



UZAOLTP 
($$BOLTP) 



UZAOLTP 
($$BSOPEN) 



IJZATIME 
($$BETIME) 



Y 



IJZACEOM 



IJZACKTP 



IJZACMNT 



IJZACOMP 



IJZACONV 



IJZADPRT 



IJZAEXIO 



IJZAHEAD 



IJZAOPUT 



IJZARATA 



IJZARSLT 



IJZATOLT 



IJZAWAIT 



NOTE: The ( — ) in IJZADO-- can be replaced by the two numeric characters in the right corner of the block to obtain the 
corresponding phase name. 

Figure 3. OLTEP Hierarchical Chart 
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IJZADOLT: 



Initializer 1 Chart AA 



O BJECTIVE ; Identifies to the DOS Operating 
System that OLTEP is active. It then 
issues message E102I (OLTS RUNNING) to both 
the SYSLOG and SYSLST DEVICE. A 
calculation of the size of the BG partition 
is then made. If the BG partition is less 
than 14K, message E232I is issued along 
with a System EOJ. Otherwise, control is 
passed to the Initializer 2 module 
(IJZAD099). 

ENTRY POINT ; Label AEZADOLT. 

E XIT ; 

1. To module IJZAD099 when BG partition 
size is 1UK or greater. 

2. To System EOJ when BG partition size 
is less than 14K. 

E XTERNAL ROUTINES ; 

1. System EXCP to issue the message. 

2. System EOJ to terminate OLTEP. 

3. System LOAD to load module IJZAD099. 

4. System COMRG to identify address of BG 
partition. 

INPUT; None. 

OUTPUT: The registers passed to the 
Initializer 1 module identify the size, 
beginning address, and highest location of 
the BG partition. The messages are: BG 
E102I and BG E232I. 

METHOD : The initializer module (IJZADOLT) : 

• Saves the caller' s register. 

• Establishes base registers for OLTEP. 

• Obtains the background partition's 
communication region address, and saves 
it in the DOS-OLTEP common area. 

• Sets the OLTEP bit in DOS communication 
region. 

• Issues the OLTS RUNNING message via an 
EXCP. 

• Obtains the background partition size 
from the DOS communication region, 

I deducts the OLTEP size (14K), and 

places the remainder in the Section 
Control Table (SCT), which resides in 
the OLTEP common area. This is used 
for the OLT and its MORECORE 
requirements. 



IJZAD099: 



Initializer 2 Chart AB 



OBJECTIVE: Performs basic initialize 
functions necessary to DOS-OLTEP execution 
after OLTEP is loaded and control is passed 
to OLTEP. Switches are set, the message 
OLTS RUNNING is issued, and preliminary 
checks are made of the DOS features present 
relevant to OLTEP execution. 



ENTRY POINT: Label EPZAD099. 



EXIT: 



To communication interval module, 



UZAD052. 
EXTERNAL ROUT INES : 

1. System EXCP to read card entry 
information if available and to issue 
message E240I. 

2. System GETIME macro to get time of day 
information. 

3. GETCONFIG (IJZAD016) to the CPUCDS. 

4. System STXIT to get the address of the 
STXIT module. 

INPUT: The reply to message BG 04E105D if 
made by card entry. 

OUT PUT: The reply to message BG 04E105D. 
The following message is issued: E2U0I. 



I METHOD: The initializer module (IJZAD099) : 

• Determines if the STXIT facility option 
is available and, if so, provides for 
abnormal termination and operator 
communication handling in accordance 
with this facility. 

• Sets a flag in the SCT to show quiesce 
mode as active. 

• Obtains CPU descriptor information via 
the GETCONFG macro, and places that 
information in the OLTEP common area. 

• Determines if the timer is available 
for OLTEP use, and sets a switch in the 
OLTEP common area if it is. 

• Determines if a 1052 is available. 

• Determines if card input is desired for 
DEV/TEST/OPT entry and, if so, provides 
for a read of one card. 

• Issues an SVC 46 to store the address 
of the external interrupt handler in 
the supervisor. 
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IJ ZA DO01: Transient_Manac[er Chart _AC 



OBJECTIVE; 
linkages. 



Handle all transient module 



ENTRY POINT: EPZADO01. 



EXITS: 



1. Exit to the called module via register 
15, if the load was successful on a 
call. 

2. Return to the caller via register 14, 
if the load was successful on a load. 



EXITS 
1. 

2. 
3. 



5. 



A system EOJ is issued on a CANCEL 
request. 

IJZAD031: If the DEV entry is used 

IJZAD032: If no DEV entry and a TEST 
entry is used. 

IJZAD033: If neither the DEV nor TEST 
entry is used. 

IJZAD076, REI Initialize #1: If REI 
is entered. 

IJZAD078, REI Terminate: If STOPREI 
is entered. 



3. Exit to communication interval 
(IJZAD052), if an external interrupt 
is encountered. 

4. Return to caller with a return code of 
X'OU' if module load fails. 



EXTERN AL ROUTINES : LOAD (System). 

INPUT: Pointer to parameter list (Register 
1). 



OUTPUT: 



Return code of X 1 04* if module 



load fails. 



M ETHOD : When a module is requested, the 
transient manager first checks the Module 
Control Table (MCT) to determine if it is 
already in main storage. If it is, the 
LOAD is bypassed, and control is given to 
it. If the requested module is not in main 
storage, it is loaded and the MCT is 
updated. 

If an external interrupt is encountered, 
the previous request is ignored, and the 
communication interval module (IJZAD052) is 
loaded. 



IJZAD052: Communication Interval Chart AE 



O BJE CTIVE: Communicate between operator, 
remote specialist, and OLTEP for the 
purpose of defining, changing, and 
terminating the testing sequence and 
obtaining a dump of the OLT 1 s partition. 

ENTRY POINT : At label EPZAD052 from the 
scheduler (IJZADO00) or the initializer 2 
(IJZAD099). 



INPUT: The reply from the message 

01E105D ENTER DEV/TEST/OPT 

or control statement if card input is used 

OUTPUT: Pointers to slashes, prompt 
messages, messages E106I, E108I E105D 
E112I, E161I, E166I, E199D, E226I, E242I 

EXTERNAL ROUTINES: 

1. CECOM (IJZAD037) to issue messages. 

2. Prompt Dev (IJZAD071) to print 
examples of the device field. 

3. Prompt Test (IJZAD072) to print 
examples of the test field. 

4. Prompt OPT (IJZAD073) to print table 
of options 

5. PDUMP macro to dump OLTs partition, 

6. Option decode (IJZAD033) is called to 
format and issue message E1071. 



METHOD: A check is made to determine if 
input is on cards. If so, the control 
statement is decoded. If input is via the 
console, a check is made to determine if 
the console is available. If not, an exit 
is taken to IJZAD057 after issuing message 
E226I to SYSLST. If the communication 
interval was not initiated by the remote 
specialist, the 01E105D message (ENTER 
DEV/TEST/OPT) is issued via the CECOM 
module (IJZAD037). The operator or the 
remote specialist may now enter the 
device(s) to test, the tests to run, and 
the testing options, or they may 
communicate with each other. If 
communication is neither onsite nor remote 
an exit will be taken to the appropriate 
decode module to set up or change the test 
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conditions. Otherwise, the 01E105D message 
will be reissued. Acceptable operator 
entries and resultant actions taken are as 
follows: 



1 



Operator 
Entry 


| Action Taken 

L 


CANCEL 


r 
A system EOJ is issued. 


DUMP 


OLTEP and the OLT area 
|are dumped on the SYSLST 
device. 


PROMPT XXX 


Exits to the prompt 
| module requested and 

prints examples of the 
i device, test, or option 

entries. 


DEV/TEST/OPT 


Check to determine if 
i three slashes were 

entered. If not, an 

error message prints and 
|the E10 5D message is 

reissued. 


REI 


Exit to the REI 
Initialize #1 module 
(IJZAD076). 


STOPREI 


Exit to the REI Terminate 
module (IJZAD078). 


TALK 


Signifies dynamic CE 
communications is 
requested. 



L ± 



J 



If this is the initial entry, a test is 
made to determine if the device and test 
are specified. If not, an error message 
prints, and the 01E105D message is 
reissued. If both device and test were 
specified, the device decode module is 
called, and the fields are checked for 
validity. The device decode module exits 
to the test decode module to determine the 
tests to be run. The test decode module 
exits to the option decode module to 
determine the options to select. If there 
are any invalid entries in any field, this 
module is reentered at label IJZAD052, and 
the 01E105D message is issued again. If 
all the entries were valid, the option 
decode module exits to the scheduler 
(IJZADO00). 

If this is not the first entry, any or 
all fields can be omitted. Entries made in 
the previous run are used in place of 
omitted entries. If a field is not 
present, its corresponding decode module is 
not entered, except for the option decode 
module, which is entered if neither the DEV 
nor TEST entry is used. 



IJZAD057: Restore Label Routine Chart AG 



OBJECTIVE: This module is called to 
restore the labels of any standard labeled 
tapes that were used in testing if either 
all tests have been run on all devices, or 
testing has been terminated early for some 
reason. Note that when S0SP is the active 
OLT, the tape labels are not restored The 
procedure to restore tape labels is to 
search the device table entries with the 
standard label bit on, and write standard 
labels on the proper tapes using the volume- 
serial numbers saved in the device table 
This module also disables all enabled TP 
lines. 

ENTR Y_P 01 NT : EP Z ADO 5 7 . 

EXIT: Return to caller via GPR14, or to 
OLT if it has a cleanup routine 

EXTERNAL_R0UTI NES : 

1. CEC0M (IJZAD037). 

2. CONVERT (IJZAD041) 

3. Macros: EXCP, WAIT, CCB RETURN 

INPUT: The device entry table in the 
common area is used as the information 
source. $E0JFLAG indicates EOJ should be 
issued. $EX0UTFG indicates a check for 
OLTs cleanup. 

OUTPUT: Messages: E137I, E139D, E174I, 
E199I, EU14I. 

METHOD: This module searches the device 
table for entries with the standard label 
bit on, and restores a standard label with 
the same volume serial number that it had 
when the test started. If the device is 
not a standard label, the next device (if 
there is one) undergoes the same test The 
previous status is then cleared and a sense 
is performed. The module then checks if 
the device is file protected or if 
intervention is required. If either 
condition exists, an error message is 
issued. If the tape is not file protected 
or intervention is not required, the tape 
is rewound, A test is then made to 
determine if S0SP is active. If it is, the 
label is not restored and the pointers are 
updated to the next device. Otherwise, the 
label is restored and pointers are updated 
If the restoring of the tape label is 
unsuccessful, the module issues message 
E174I which indicates that the label was 
not restored. A test is then made for a 
sense. If sense was not detected, it 
performs a sense. In either case, message 
E137I is printed if a console is available 
If a console is not available, the next 
device is tested. If message E137I was 
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printed, then message E139D is issued 
requesting to bypass or retry restoring the 
label. If bypass is specified, the 
pointers are updated to the next device. 
If the retry option is entered, a sense is 
performed and the label is attempted to be 
restored. 

Message E199D is issued if a valid 
option is not selected. This indicates 
that an incorrect reply was made and that a 
valid reply is needed. Each time the 
device pointers are updated, a test is made 
to determine if the last device has been 
encountered. After the last device has 
been tested, a check is made to see if line 
connection has been invoked. If it has, 
message E414I is issued and all enabled 
lines are disabled. In either case, 
control is returned to the caller. 



E108I, E110I, E111I, E127I E161I, Elbt>I 
E234I. 



IJZAD031: Device Decode Chart AH 



O BJE CTIVE; Decode the data entered in the 
device field of the reply to the BG E105D 
message. 

ENTRY: EPZAD031. 



E XITS : 

1. Test decode (IJZAD032). 

2. Communications interval (I JZAD052 ) , if 
there is an error. 



EXTERNAL ROUTINES: 

1. Output writer (IJZADO70), to issue 
messages. 

2. CONVERT (IJZAD041) , to convert the 
entry from EBCDIC to hex. 

3. GETC0NFG (IJZAD016), to access the 
configuration data set (CDS). 

4. CECOM (IJZAD037). 

5. Restore tape labels ( IJZAD057 ) . 
I NPU T: Reply to message 

01E105D ENTER DEV/TEST/OPT/ 

O UTP UT : Device addresses and/or symbolic 
names are put into the device entry table 
along with CDS information. Messages: 



METHOD: A check for the origin of the 
entry is made to determine if the entry is 
from the onsite operator or the remote 
specialist. (Note that the only valid 
response from the remote specialist is 
•.NDR/ 1 . Any other entry causes message 
E165I to be issued. ) If there is either a 
valid entry from the remote specialist or 
from the onsite operator, module IJZAD057 
is called to restore any tape labels. The 
device field is now ready to be decoded and 
a check for '.NDR 1 is made If present, 
control is given to IJZAD032 (Test Decode) 
Otherwise, a check for channel entry, 
symbolic name, or unit address is made If 
none are present, messages E108I and E161I 
are issued and IJZAD052 (Communication 
Interval module) is called If the device 
is valid, it is moved into the device entry 
table, A check for more devices is then 
made and the routine is run once more If 
there are too many devices, message E110I 
is issued and module IJZAD032 is called 
If there are no valid devices, message 
E111I is issued and module IJZAD052 is 
called. The presence of one of the 
following in the device field is verified: 



DDDDDDDD. Indicates a symbolic name 
of from 1-8 characters- the first of 
which must be A-Z, #, $, or a 

. CHxxxx. Channel testing is desired 
xxxx is a unit address of from 3-4 
digits beginning with a numeral 0-9 



, NDR. 



No device required for testing 



A three- or four-digit numeric 
followed by one of the following: 

a. Slash. End of device field and 
beginning of test field 

b. Dash. Another four-digit numeric 
follows defining a range of devices 
up to sixteen. 

c. Comma. Another four-digit numeric 
device address follows. Up to 16 
four-digit numeric device entries 
are accepted, each separated by a 
comma. 



If an incorrect entry is made, a message 
is issued describing the error, and the 
communications interval module (IJZAD052) 
is entered. Only one entry from the remote 
operator is allowed: .NDR. 
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IJZAD032j_ Test_Decqde Chart_AK 

O BJECTIVE : Decode the data entered in the 
test field. 

ENTRY POINT: Label EPZAD032. 



I 3. 



Four digit numeric. Indicating the 
test type and followed by: 



a. Slash. Indicates run of all 

available test within section range 
A-Z. 



EXITS : 

1. Option Decode (IJZAD033). 

2. Communications Interval (IJZAD052) on 
an error condition. 

EXTERNAL ROUTINE: The output writer module 
(IJZADO70). 

INPUT: Reply to message 

01E105D ENTER DEV/TEST/OPT/ 

Tables and workareas : 

1. B32TMSK - 8 bytes used to set masks. 

2. T32BLE - 27 bytes used for converting 
alphabetic characters to numeric 
values. 

OUTPUT: 

• Routine bits set in SCT. 

• Section IDs in the test table. 

• Highest routine name in common. 

• Messages: E112I, E155I, E161I. 



METHOD: A test is made on the first entry 
flag, then the information entered between 
the first two slashes is checked for: 

1. Slash. Indicates use of the same 
tests as indicated in the previous 
test run definition (invalid on first 
request) . 

2. Alphabetic character. A test is made 
to determine if the first character is 
alphabetic. If so, the test field is 
checked for: 

a. SOSP entry (SOSPA, SOSPB, TSOSPA, 
TSOSPB) . Indicates the running of 
a special purpose OLT. 

b. Valid alphabetic prefix (N, P, R, 
or T) . 

Note : If entry is not a SOSP entry 
but contains a valid prefix, the 
next four characters are checked. 
A four-digit numeric following in 
this position denotes test type. 



b. Alphabetic character. Indicates a 
test section to be run followed by: 



(1) Slash. End of test field. 



(2) Dash. Another alphabetic 

character follows to establish 
a range of test sections to 
run. The second alphabetic 
character can be followed by : 



(a) Slash. 



End of test field. 



(3) 



(b) Comma, Another alphabetic 
character designating 
another test section is to 
run. 



Comma. Indicates additional 
test field entries follow. 
These can be: 

(a) Alphabetic character. 

Another test section to run 
(up to 26 single character 
entries separated by commas 
are accepted) 



(b) Numeric character. Routine 
in the section immediately 
preceding the comma is to 
be run. This can be 
followed by: 

- (Dash). Another numeric 
character follows 
designating a range of 
routines to be run (must 
not exceed 255). 

, (Comma). Another numeric 
character follows 
designating another routine 
within the section to be 
run. 

N otes : Where routines are requested, 
only one test section is allowed in the 
test field entry. Finally, the program 
checks to ensure that the field is 
terminated by a slash. A mask of X* FF* 
is set after the last entry to mark the 
end of the test table. The device 
initial entry switch is reset in this 
module. A valid section entry can be 
up to three alphabetics (ZZZ). 
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I JZA D033: Option Decode Chart AN 



Alphabetic characters 
options : 



Represent the 



OBJECTIVE : Decode the data in the option 
field. 



ENTRY POINT: Label EPZAD033. 



EXITS: 

1. Normal. IJZADO00, or old on line 

test. The program checks to determine 
if this is a communication interval 
during the execution of an old OLT and 
that neither a device change nor test 
change is desired. If these 
conditions are met, control is given 
to the old OLT. Otherwise, exit is to 
the scheduler. 



2. Error. When an error occurs, the 
appropriate message is issued. 
Control is given to IJZAD052. 







"T 


. 


TL 


(value) 


| NTL 


Test loop 


EL 


(value) 


| NEL 


Error loop 


EP 




| NEP 


Error print 


CP 




| NCP 


Control print 


PP 


(X) 


| NPP 


(where x=levei 
0,1, 2 or 3) 
Parallel print 


FE 




| NFE 


First error 
communication 


MI 




| NMI 


Manual 
intervention 


PR 




| NPR 


Print 


RE 




| NRE 


Remote 






__L _ ±_ „ 



EXT= 
Followed by up to 56 characters 
which are placed in an area 
adjacent to the PASSON area of the 
OLTEP nucleus. EXT= must be 
entered last in option field. 

(. T ^ 

Commas | Separating the 
j options. 

L J. J 



EXTERNAL_ROUTINE: CECOM (IJZAD037). 

INPUT : Reply to message 

01E105D ENTER DEV/TEST/OPT/ 

OUTPUT : 

1. Option bits in SCT. 

2. Messages: E107I, E115I, E161I, E176I. 



The option bits in the Section Control 
Table ( SCT) are set and reset in 
accordance with entries in the option 
field. 

Notes: The test and option initial 
entry switches are reset in this 
module. If a slash occurs in the 
option field, the default values are 
used on the initial entry. MI and RE 
are mutually exclusive options and, if 
selected together, a message is 
printed and control is passed to the 
Communications Interval module 
(IJZAD052). 



IJZADO00: Scheduler Chart AP 



M ETH OD : This module checks the information 
entered in the option field for: 



1. Slash. Indicates no options are being 
entered. In the initial test run, the 
default options are supplied. 
Thereafter, unspecified options are 
selected according to the previous 
status. 



OB JE CTIVE: Schedule testing of those 
devices entered in the device field of the 
DEV/TEST/OPT entry. 

ENTRY_POINT: Label EPZADO00 normally, or 
label S00DTERM when entered from the DI-ERfo 
macro. 



EXITS: 

1. To the OLT entry point. 

2. To the communications interval module 
(IJZAD052) after all devices are 
tested. 
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3. To the REI Initialize No. 2 module 
(IJZAD077). 



EXTERNAL ROUTINES : 

1. Data protection (IJZAD056). 

2. Convert (IJZAD041). 

3. CECOM (IJZAD037). 

4. Device update (IJZAD085). 

5. LOAD (System). 

INPUT ; Tables and workareas. 

1. Device Table. 

2. Section List Table. 

3. Switches in Common Area. 

4. Section Control Table. 

5. Section Preface in OLT. 

OUTPUT: Messages: E117I, E127I, E158I, 
E198I, E201I, E225I, E227I, E231I, E238I, 
E239I. 



MET HOD: After performing standard 
linkage, the scheduler initializes device 
and test table pointers, resets bits 
possibly set for previous sections, and 
loads the section indicated by the section 
pointer* Next the current device is 
checked for a Configuration Data Set 
(CDS). When symbolic naming is indicated 
in the device field, messages E158I, 
E127I, and E231I will specify both the 
unit address and symbolic name. If the 
device has a CDS, the scheduler calls the 
data protection module (IJZAD056). Note 
that if SOSP is the active unit test and 
CDS information is not available, the 
device update module (IJZAD085) is called 
to obtain the device descriptors. If the 
device does not have a CDS and the test 
just loaded is a new section, an error 
message is printed, and the test pointer 
is updated. If the test just loaded is an 
old section, the scheduler branches to a 
subroutine, which places the device 
I description for this device in the SCT. 

The local-print-only bit is set so that 
data-protection messages do not go to the 
remote location. The data-protection 
module (IJZAD056) is then called to 
perform the necessary checks on the 
device. On return from the data 
protection module, the scheduler checks 
the status of the device, and resets the 
local-print-only bit. If it did not pass 



the data protection checks, the device 
pointer is updated. If it did pass, the 
primary device flag for this device entry 
is set in the device table, a LUB pointer 
to the PUB is set up, and the first eight 
bytes of device descriptors are moved into 
the SCT. If the current test section is 
new, two checks are made before checking 
the error count. First, the predicted OLT 
size (in the section preface) is checked 
against core available. If the OLT is too 
large, an error message is printed, the 
test is bypassed, and the section pointer 
is updated. Next, device descriptors are 
checked against the OLT requirements tin 
the Section Preface). If the two do not 
match, an error message is printed, the 
test is bypassed, and the test section 
pointer is updated. The OLT error count 
is moved to the SCT and then overlaid by 
the FE loop on error count if one was 
specified. 



The following initialization takes 
place before branching to the OLT: 

1. The device and section pointers are 
stored in the common area 

2. The OLT entry point is placed in 
register 15. 

3. The parameter list pointer is placed 
into register 1. 

4. The pointer to the scheduler return 
coding in the common area is placed 
into register 14. 



When the scheduler is entered at label 
SOODTERM, it resets the grabbed bit for 
every entry in the device table, clears 
MORECORE and FREECORE pointers, loads the 
current device and section pointers from 
the common area, and checks for three 
possible error conditions: 

1. A two/ way CECOM was issued with no 
console available In this case an 
error message is printed, no 
terminate message is printed, and the 
section pointer is updated. 

2. The current test was bypassed for 
some other reason, and an explanatory 
message has preceded the call of the 
scheduler return. An additional 
message is printed by the scheduler 
return (SOODTERM) and the section 
pointer is updated. 

3. Not all selected routines were run 
In this case, an error message is 
printed. If REI is being 
initialized, no other tests are 
allowed to start. 
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Following the last two checks, the 
terminate message is printed, unless No 
Control Print (NCP) was specified. If an 
error occurred during execution of the 
current section, an asterisk is added to 
the terminate message to indicate that 
testing has been completed with errors. 
An asterisk (*> is also placed before the 
T if the section is terminated by the 
operator/CE at an interrupt or first error 
communication interval. 

If a device or test change was made, a 
branch is taken to the beginning of the 
scheduler where the pointers are 
initialized. If no changes were made, the 
test pointer is updated. Upon termination 
of a test section, the scheduler purges 
all outstanding I/O on test devices. 

Each time the test pointer is updated, 
a check is made to determine if the last 
section in the table has been reached. If 
so, the section pointer is reset to the 
beginning of the table and the device 
pointer is updated. After all devices are 
tested, control goes to the communication 
interval module (IJZAD052), unless Test 
Loop (TL) was specified in the option 
field. In this case, the device and test 
pointers are reset, and the entire cycle 
is repeated the number of times indicated. 



IJZ AD056: Data Protection ( General ) 

Chart AS 



OBJ ECTIVE; Determine device type, check 
ready status, and call appropriate 
specific module for further data 
protection. 

ENTRY POINT : EPZAD056. 

EXITS: To the: 

1. Data protection module for tape 
(IJZADO03). 

2. Data protection module for 2311 and 
2314 (IJZADO07). 

3. Data protection module for 2321 
(IJZADO02). 

I 4. Caller if unit record or TP device. 



2. CEC0M (IJZAD037) for two-way 
c ommuni cat i ons . 



3. $$BS0PEN. 
| 4. Macros: EXCP, WAIT, CCB 



INPUT: Pointer device to be data 
protected. 



OUTPUT: Messages: E024I, E130I, E137I 
E139D, E199D. 



METHOD : If the device to be tested is 
shared (assigned to both background and 
foreground) , a bit in the device table is 
set to indicate that testing can only 
proceed in file protect mode* If the 
device belongs exclusively to the 
background, full testing can be performed 
provided that it fulfills all other data 
protection requirements. 



The next check is for ready status 
This is the only data protection task 
I required for unit record or TP devices 
because input/output for these devices is 
external and pertains only to a particular 
test section with no exposure to 
destruction of permanent data. If the 
device being tested is a tape, IJZADO03 is 
entered. If 2321, IJZADO02 is entered 
If 2311, or 2314, IJZADO07 is entered 



The data protection modules communicate 
with the Scheduler and the GRAB module by 
setting two bits in the device table, 

1, Data protection bit : 

• OFF indicates testing of this 
device must be bypassed 

• ON indicates the device meets data 
protection requirements 

2. File protect bit: 

• OFF. Full testing can be done on 
this device if data protection bit 
is ON. 



EXTERNAL ROUTINES : 

1. Convert module (IJZAD041) to convert 
binary data to EBCDIC before 
printing. 



• ON. Test can only be run in file 
protect mode. 



These bits are reset by the restore 
labels routine. 
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IJZADO02i Data_Protection i __IBM_2321 

Chart AU 



ENTRY POINT: EPZADO03 



OBJECTIVE : Protection of customer data 
while allowing effective testing of the 
IBM 2321, 

ENT RY POINT : EPZ ADOO 2 . 

I EXIT : Return to caller via RlU. 



EXTERNAL ROUTINES : 

1. CECOM (IJZAD037 for two-way 
communications! and messages. 

2. CONVERT (IJZAD041) to convert hex 
data to EBCDIC before printing. 

3. $$BSYSWR. 

4. Macros: EXCP, WAIT, CCB. 

INPUT : Pointer to device entry. 

OUTPUT: Messages: E126I, E130I, E131I, 
| E132I, E137I, E139D, E140D, E199D. 



METHOD : A message is issued asking the 
operator if a CE volume is mounted in bin 
0. If his reply is NO, control is given 
| back to caller, and testing of the device 
is bypassed. 

If the reply is YES a sense command is 
issued first to bin 0, subcell 18, then to 
bin 0, subcell 19. The CE bit should turn 
ON when subcell 18 is sensed to indicate 
that a CE cell is mounted. The bit should 
reset when the sense to subcell 19 is 
made. If both sense commands are 
| successful, caller is reentered, and 
testing is allowed in non-file protect 
mode (non-FPM). 

Any failure in the sense commands 
prints a message indicating the failure, 
followed by the sense and CSW information. 
A message is then issued giving the 
operator the option either to bypass the 
test or to mount another cell and retry 
the sense commands. 



EXIT: 



Return to caller via R14. 



EXTE RN AL_ROUTI NE S : 

1. CECOM (IJZAD037) for two-way 
communications, and messages, 

2. Convert (IJZADOU1) to convert binary 
data to EBCDIC before printing. 

3. Macros: EXCP, WAIT, CCB 

INPUT: Pointer to device entry. 

I OUTPUT: Messages: E118I E119I, E122I 
E123I, E137I, E139D, E199D 

METHOD: Full testing is allowed on tape 
devices if a standard labeled tape is 
mounted, the security bit is OFF, and the 
expiration date has expired. The standard 
label can be either EBCDIC or ASCII 



If the tape label is unreadable, the 
following messages print. 

• Ell 8 I UNREADABLE TAPE LABEL 



• E137I SNS 



XXXXX CSW - ZZZZZZ 



• 04E139D REPLY B TO BYPASS. R TO RETRY 
P TO PROCEED. (May destroy data.) 

A bypass reply causes a return to the 
calling module. A retry reply causes the 
data protection checks to repeat. A 
proceed reply allows the tape to be used 
for testing. 



| If the security bit in the label is ON 
the following messages are issued: 

• E122I VOL ON XXXX CANNOT BE USED AS A 
SCRATCH - SECURITY PROTECTED. 

| • 04E139D REPLY B TO BYPASS, R TO RETRY.. 

The bypass reply causes a return to the 
calling module. The retry reply causes 
the data protection checks to repeat 



IJZADO03: Data Protection, Tapes, 
Chart AV 



OBJ ECTIVE: Protect customer data while 
allowing effective testing of tape 
devices. 



If the expiration date has not expired, 
the following messages are issued: 

• E123I VOL XXXX CANNOT BE USED AS A 
SCRATCH - UNEXPIRED DATE. 

• 042139D REPLY B TO BYPASS, R TO RETRY 
P TO PROCEED. (May destroy data.) 



OLTEP Primary Modules 2b 



If all the data protection measures are 
met or the proceed reply was given in 
response to the 04E139D message, the label 
is saved and control is returned to the 
caller. If a standard label was on the 
tape, a standard label with the previous 
volume serial is written by IJZAD057 at 
test completion. 



IJZADO07: Data Protection, IBM 231 1 and 
| 2 314 Chart AX 



OBJ ECTIVE; Protect customer data while 
allowing effective testing of the IBM 2311 
and IBM 2314. 

ENTRY POINT : EPZADO07. 

| EXI T: Return to caller via R14. 



METHOD: When a unit to be tested is a 
2311/2314, this module is invoked and an 
attempt is made to read the volume label. 
(If unsuccessful, there will be up to ten 
retries. ) A check is made for. a standard 
label (Volume 1). If a volume has a 
standard label and the volume security 
indicator is not X' F0' : or X* 00 , the 
volume is considered secure; OLT accessing 
will not be allowed; and message E122I is 
issued. If the pack has a volume serial 
number of CEPACK and is not security 
protected, testing is allowed to proceed 
in non-file protect mode. If a pack has a 
standard label, but does not have a volume 
serial number of CEPACK and is not 
security protected, message E124I is 
issued and the file protect mode bit in 
the device table is set indicating that 
testing can proceed in file protect mode. 
If a volume does not have a standard 
label, message E125I is issued Whenever 
messages E122I, E125I, and/or E124I are 
issued, message E139D follows giving the 
operator the following three options: 



EXTERNAL_ROUTINES : 

1. Output writer (IJZADO70) to issue 
messages, 

2. CECOM (IJZAD037) for two-way 
communications, and messages. 

3. Convert (IJZAD041) to convert binary 
data to EBCDIC for printing. 

4. $$BSYSWR. 

5. Macros: EXCP, WAIT, CCB. 

INPUT: Pointer to device entry. 

OUTPUT: Messages: E122I, E124I, E125I, 
E137I, E139D, E199D. 



BYPASS. Bypasses the testing of this 
device and returns to caller 



2. RETRY. Reissues the read command 

after another pack has been mounted. 



| 3. PROCEED. Returns to caller. Testing 
is restricted to File Protect Mode 
IFPM). 

| If the label was unreadable a message 
prints giving the sense and CSW 
information. This is followed by the 
bypass, retry, proceed message 
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OLTEP/OLT SUPPORT MODULES 



The OLTEP primary modules , the OLT, or 
other support modules can call the support 
modules. These support modules are loaded 
into the transient area by the transient 
manager, and entry is made into the module 
or the entry point is passed to the. caller 
as requested. They perform functions such 
as printing messages, converting data from 
hexadecimal to EBCDIC, etc. A detailed 
description of each of these modules 
appears in the following sections. 



IJZADOlO: REI Nucleus Chart BA 

OBJECTIVE: Control REI input/output. 
ENTRY POINT: EPZADO10. 



EXI T: Return to caller. 

INPUT: Messages from the remote location. 

OUTPUT: Message to the remote location* 

MET HOD: This module is comprised of four 
parts : 

1. This part is used only to relocate A 
and V type adcons. Because OLTEP can 
load the module at any address, the 
value for the constants cannot be 
defined until the module is loaded. 
An address is returned to the caller 
that serves as a base register when 
other modules require functions of 
the REI nucleus. 

2. This part of the REI nucleus is the 
Interrupt Handler* Its address is 
put into the CCB, and DOS passes 
control to it when an interrupt is 
encountered. It determines from the 
CSW and sense information which CCW 
string is to be executed next. This 
information is then passed to the 
supervisor, or the CCB is posted. 

3. (Input) This part of the REI nucleus 
retrieves messages from the remote 
location that are in the input 
buffer. The message is translated to 
uppercase EBCDIC and given to the 
caller. 

4. (Output) This part controls messages 
to the remote location. Because the 
input messages are buffered and are 



not handled immediately, the remote 
location must be informed if all the 
messages were not accepted. Control 
returns to the caller. 



IJZAD Oll: T P Line Connection Chart AX 

OBJECTIVE: Performs line connection 
function for a teleprocessing test. 

ENTRY POIN T: EPZAD011. 

EXI T: Return to caller. 

EXTERNAL ROU TINES : CECOM (IJZAD037). 

INPUT: CDS Address. 

OUTPUT : 

1. Return codes: 

00 = Line connection successful. 
14 = Line connection not performed. 

2. Messages: E400I through E410I, and 
E412I through E414I, 

METHOD : A bit in the CDS indicates that 
line connection is required. Line 
connection is then attempted, and if 
successful, a return code of '00' :is sent 
to EXI0 and no messages are issued. If 
there is insufficient or inaccurate 
information in the CDS, line connection 
cannot be performed. In this case, 
appropriate diagnostic messages and an 
error return code (X 1 14* ) is returned to 
the EXIO module. To generate the correct 
CCW chain, the sequence code in the CDS 
entry is examined. If an operator call is 
required, a message is issued to the 
operator. This message contains the 
telephone number (if it is specified in 
the CDS). An EXCP is issued to execute 
the CCW chain. System ERP 1 s are bypassed 
and appropriate error recovery procedures 
take place in the module. Error 
conditions or time out are indicated by a 
diagnostic message. In the case of time 
out, the I/O request is purged and an 
error message code (X , 14 l ) is returned to 
the EXIO module. This indicates that line 
connection was not performed. If line 
connection is successful, the bit in the 
CDS requesting line connection is reset 
and a return code of X 1 00' :is passed back 
to EXIO. 
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IJZAD016: 



GETCONFG Chart BE 



OBJ ECTIVE: Locate and load the desired 
Configuration Data Set (CDS) into the 
location specified. 

ENTRY POINT: EPZAD016. 



EXIT : Return to Caller 
EXTERNAL ROUTINES : 

1. LOAD (System). 

2. CONVERT (IJZAD041). 
INPUT : 

1. Buffer address, buffer size and 
address of CDS. 

2. Local file (Phases 
IJZACO00-IJZAC999 ) . 

3. CE/customer (remote) file (Phases 
IJZADO00-IJZAD999). 

OUTPUT : Return codes: 

X 1 00" = Successful completion. 
X 1 04 1 = Function not available. 
X'OS' = Buffer full or entry size 
greater than buffer size. 
X'OC = No entry found. 



file CDS phases (IJZAD000-IJZAD999) are 
searched. 

In the case in which the caller has not 
specified a CDS, the default is to obtain 
CDS information for the primary device 
The primary device can be either a local 
CDS type or a remote or Customer/CE CDS 
type. 

The GETCONFG module uses the same 
routine to search either of the two CDS 
files. This routine consists of loading 
the first phase of the CDS file into a 
buffer within this module. Then, the 
following sequence of testing is done: 

1. The keyword 'NEXT* is issued which 
signifies that the end of the phase 
has been reached and the next phase 
is to be loaded. 

2. The keyword 'LAST 1 is issued which 
signifies that the end of the CDS 
file has been reached without finding 
the CDS information. This condition 
results in a code of X'OC being 
returned. 

3. A check for the desired CDS 
information is made. If the desired 
CDS is found, a return code of X*00' 
is given if the caller 1 s buffer is 
large enough to hold the CDS 
information. If it is not, a return 
code of X'08 1 is given. 



MET HOD : The GETCONFG module obtains the 
desired CDS information specified by the 
caller. The first action taken by this 
module is to check the macro level. If 
correct, processing continues. Otherwise, 
a code of X'OU' is returned to the caller. 
The module then determines if any CDS 1 s 
exist in this system. If they do, 
processing continues. Otherwise, a code 
of X'OC 1 lis returned to the caller. Now 
the module determines either if the caller 
has specified, through the parameter list, 
a desired CDS or if a default to the 
primary device is desired. This is done 
by testing the CDS ADDR parameter. If it 
is a zero, the default to the primary 
device is desired. If not zero, the 
caller has specified a desired CDS. 

In the case in which the caller has 
specified a CDS in the CDS ADDR, a test is 
made to determine which type of CDS is 
desired. There are two general CDS' s — a 
local CDS family and a remote or 
Customer/CE defined CDS family. If a 
local CDS is specified (Byte 9, Bit 6 is 
off) , the local CDS phases 
(IJZAC000-IJZAC999) are searched. If a 
remote or Customer/CE CDS is specified 
(Byte 9, Bits 4 and 6 are on), the remote 



IJZAD021: GRAB Chart BF 



OBJECTIVE: Perform a search of the device 
table for the device to be used as a 
secondary device by the on-line test 
section. 



ENTRY POINT: 



Label EPZAD021. 



EXITS : Returns to the calling module 

INPUT: Parameter list: $GRBTRMG, 
$GRBLEVL, $GRBIDNT, $GRABCDS, $GRABFLG, 
$GRABCLS, $GRABTYP, and $GRABCNT. 

Return codes : 



Successful grab. 

Facility not available. 

Device not found. 

Only one device in entry list 

Device descriptors not 

available. 

CDS indicater predefined 

information available, but was 

not passed 



OUTPUT: 


X 1 


00 1 


X' 


04' 


X« 


08 1 


X" 


OC 1 


X« 


10« 



X 1 14' 
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METHOD: The grab module searches the 
device table for a secondary device 
starting at the entry following the last 
assigned secondary device, or the entry 
following the primary device (if no 
secondary device has been assigned). It 
scans to the end of the table, restarts at 
the beginning until a match or the 
starting point is found. 

If there are no entries in the device 
table or if the GRAB macro is not 
compatible with the module, a code of 
X' 04 1 .is loaded into GPR15, the caller's 
registers are restored, and control 
returns to the caller. If there is only 
one entry in the device table, a code of 
X'OC is loaded into GPR15, and control 
returns to the caller. 

The program checks each device table 
entry to determine if the GRAB bit is on. 
Then it checks to determine if it is 
primary. Any of these conditions causes 
the next entry to be examined until the 
whole table is searched, or a valid device 
is found. Next, the device is checked 
against the requirements specified by the 
caller. If it doesn' t match, then the 
search continues. When a device is found 
that meets all the specifications (and if 
the device may be grabbed) it sets the 
data protection bit and the grab bit in 
the device table, the SDBUPTR is updated 
and device descriptors (if available) are 
moved into the caller 1 s buffer along with 
the device address. A return code of 
X" 00* : is set in GPR15, and control returns 
to the caller. 

If data protection does not allow the 
device to be grabbed, then the next entry 
in the table is checked, etc until the 
whole table is searched. 

If the whole table is searched without 
finding an appropriate device, a return 
code of X'08 1 is loaded in GPR15 and 
control passes to the caller using 
standard linkage. 



EXT ERN AL_ROUT I NE S : 

1. CECOM (IJZAD037). 

| 2. CONVERT (IJZAD041). 

INPUT: Parameter list: $ALTORMG, 
$ALTLEVL r $ALTINDT, $ALTCDSA, $ALTAMNT, 
$ALTFLGT, and $ALTFLAG. 

OUTPUT: 

1. Return Codes: 

X' 00 • = Successful Allocation. 
X' 04' := Function not available 
X'10 1 = Space not allocated. 

2. Messages: 04E120D and 04E199D. 

METHOD : The local-print-only bit is set 
so that the remote location does not get 
any of the messages. The program then 
checks to determine if the macro level is 
version 2 or later. If not, a return code 
of X 1 04 1 ; is put in register 15 < and 
control returns to the caller. 

The program checks the CDS address to 
determine whether to use the device 
address in the SCT or the CDS. If scratch 
was specified, then the ALOCAT bit in the 
device table is reset, and a return is 
made to the caller with a X 1 00' : in GPR15 
If device is not scratched, or grabbed and 
not primary, an X 1 04' is returned. 

If the FPM bit is OFF and if data 
protection has already been performed, the 
ALOCAT bit is turned on, and X 00' lis 
returned to the caller in GPR15. 
Otherwise, the operator is asked if the 
data on the volume may be destroyed. If 
it may, the FPM bit is turned off, the 
ALOCAT bit is turned on, the 
local-print-only bit is reset, and control 
returns to the caller with an X* 00' in 
GPR15. If data may not be destroyed or if 
the device is shared, a X 1 10* is returned 
to the caller in GPR15. 



IJZAD022: ALOCAT Chart BH 



IJZAD024: READD Chart BJ 



OBJECTIVE : Check to determine if write 
testing is allowed on a direct access 
device. 



OBJECTIVE: Provide for the reading of a 
record from an external data set. 

ENTRY POINT: EPZAD024 



EXIT: 



Return to the OLT, 



ENTRY POINT: EPZAD022. 



EXTERNAL ROUTINES: 



EXIT: Return to caller. 



1. CECOM (IJZAD037), 
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2. CONVERT (IJZAD041). 

3. Macros: EXCP, WAIT, CCB. 

INP UT: Address of data to be read. 
OUTPUT : 

1. Data that is read successfully. 

2. Messages 04E230D, E236I, E237I and 
04E199D. 



MET HOD: The local-print-only bit is set 
so that the remote location does not get 
any of the messages. The macro level is 
then checked to determine if it is version 
2 or a later version. If it is not, a 
return code of X'04' is put in GPR 15, and 
control returns to the caller. The 
program then checks to determine whether 
card or tape is being used for input data. 
If the input is on card, OLTEP checks for 
the standard label (first two cards). If 
the data set resides on tape, it checks 
for a standard label. If no standard 
label is recognized, X'04 1 is put into 
register 15, and control returns to the 
unit test. 

If this is a new file, message 04E230D 
is issued requesting a tape to be mounted 
on a free device. A 'NO 1 reply causes a 
return code of X 1 04 1 :to be returned. If a 
tape is mounted, the device is checked to 
insure it is not a test device, and that 
it has a logical unit assignment. If the 
device is a test device, message E236I is 
issued. If the device does not have a 
logical unit assignment, message E237I is 
issued. 

Next, the program checks the RESET and 
BACKSPACE parameters. If neither is 
active, the program builds and issues the 
READ maqro. If there are no errors, the 
data record reads from tape or card and 
goes into the input buffer area provided 
by the unit test. 

If an error is encountered while 
reading, control returns to the unit text 
with X' 08" :in register 15. 

If the RESET parameter is active and if 
tape is the data input device, the tape is 
positioned to the beginning of the data 
set and control returns to the unit test. 
If the device is not tape, control returns 
to the- unit test with X* 04' :in register 
15. 

If the BACKSPACE is active, the program 
checks to determine if the device is tape 
or card. If card, control returns to the 
unit test with X'04 1 : in register 15. If 



tape is the data input device, the 
following checks are made: 

• Absence of a backspace integer results 
in the default of one record to be 
backspaced. 

• When the integer is from 1 to 255, the 
tape backspaces the number of records 
indicated by the integer. 

At end of file, the program checks to 
determine if the data set is on tape. If 
it is, it positions the tape to the 
beginning of the data set, the 
local-print-only bit is reset, and control 
returns to the unit test with X'OC* in 
register 15. If the data set was not on 
tape, the local-print-only bit is reset, 
and control returns to the unit test with 
X'10 1 in register 15. 



IJZAD026: LOGSCAN Chart BL 



OBJECT IVE : Search the error recording 
data set history tape for the next 
sequential recording of the specified 
record, class, or device type, 

ENTRY POINT : EPZAD02 6 

EXI T: Return to caller. 

EXTERN ALJtOUTINES : 

1. Output Writer (IJZADO70) 

2. CONVERT (IJZAD041) 

3. CECOM (IJZAD037). 

4. Macros: EXCP, WAIT, CCB 

INPUT: The parameter list passed by the 
LOGSCAN macro through register 1 is: 

1. $LOGLEVL. Macro level. 

2. $LOGSINA. The starting address into 
which the records specified are to 
read, or the register containing the 
address of the area into which the 
records are to read. 

3. $LOGREC. Size of $LOGSINA. 

4. $LOGSCLS. Device class (optional) 

5. $LOGSTYP. Device type (optional) 

6. $LOGDUAD, Device address 
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OUTPUT 


: 












1. 


Return 


codes : 










X' 


00" 


= 


Successful 


read. 








X' 


04 1 


. = 


Logscan fa 
available. 


cility 


not 






X 1 


08' 


; = 


Read error 


• 








X 1 


0C" 


= 


End of dat 


a set. 








X" 


10 1 


. = 


No record 


found. 





Messages: 04E199D, 04E228D, E235I, 
E236I, E237I. 



METHOD : 



This module searches error 



recording data set history tape for the 
next sequential recording for the 
specified record, class, or device type. 
If found, this recording is placed in the 
buffers supplied by the caller. 
Otherwise, it searches the sequential 
recordings until a match is found or EOF 
is encountered. 



to the user. If the level is correct, the 
caller 1 s request is examined. A request 
for a delete causes a return code of X'00 1 
to be set and control to pass back to the 
calling OLT. 

If a load is requested, the program 
tests to determine if the number of modules 
to be loaded is zero. If so, the return 
code is set to X 1 08" , and control returns 
to the calling OLT section. A request to 
load a module that is too large for the 
available storage causes a return code of 
X'lO' to be set before returning. 

If the requested module is loaded, its 
entry point is placed into the caller 1 s 
entry point list, and the return code set 
to X 1 00' . Control then returns to the 
calling OLT section. The OLT section is 
responsible for making sure it doesn 1 t 
overlay the path back to itself 



A table is constructed to convert the 
device class combined with the unit type 
into one byte of hex information called 
the device type . The local-print-only bit 
is set on during execution of this module. 



IJZAD035: EXIO Chart BN 



OBJECTIVES: Converts the test section's 
request for an I/O operation into DOS 
format. When in file protect mode, the CCW 
chain is scanned for reads and writes. 



IJZAD028: 



PLINK Chart BM 



ENTRY POINT: Label EPZAD035. 



O BJE CTIVE: Load and/or delete modules at 
the request of the OLT section. 

ENTRY POINT: EPZAD028. 



EXIT: 



Return to caller (OLT). 



EXTERNAL ROUTINE : LOAD (system) 

I NPU T: Parameter lists that contain 
pointers to the names of the modules to 
load and/or delete. 



OUTPUT: 



List of entry .points for modules 
loaded. 

Return codes: 

X 1 00 1 := Successful. 

X'04 1 = Facility not available. 

X 1 08* := Error encountered. 

X'OC 1 = No module found 

X 1 10° := No space in main storage. 



EXIT: Return to caller via GPR14. 



EXTERNAL J*QUTI NE : 
(IJZAD022). 



TP Line Connection 



INPUT: 



Parameter list: $XIOTRMG, 



$XIOLEVL, $XIOIDNT, $XIOTCBA, $XIOCDSA, 
$XIOCCWA, $XIOCCWC, and $XIOFLAG. 

OUTPUT : Return codes : 



X^O' 
X'OiP 
X'08" 



EXCP issued. 
Facility not available. 
Device not available or TECB 
address missing, or device not 
primary, or not primary 
grabbed, or data protected, or 
device inoperative, or second 
CCB not available. 
X' 0C 1 = DP error in CCW list parameter 
X'10' = Processed all requests except 

SENSE=NO. 
X'14 1 = Line connection requested but 
not successful. 



METHOD: The caller's macro expansion is 
checked for the correct level (2). If the 
level is wrong, a return code of X'OU 1 is 
set into register 15, and control returns 



METHOD : The program checks the macro level 
to determine if it is 2 or 3. If not, the 
caller receives control with a return code 
of X'OU 1 . 
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If CDSADR is specified, the device 
address is picked up from the caller 1 s CDS. 
If not, it is picked up from the SCT. 



The device table is then searched by 
unit address or symbolic name until the 
right device entry is found or the end of 
the table is reached. If the device is not 
found a code of X 1 08* is returned to the 
caller* 

If the correct device is located in the 
device table and, if it is already active 
or not grabbed or primary, a code of X'08' • 
is returned to the caller. A LUB pointer 
to the PUB will already be set up by the 
Device Decode. This establishes a 
programmer-logical-unit name to be 
specified in the CCB (Command Control 
Block). If the device is flagged as active 
and a WAITIO has not been issued,, a code of 
X 1 08* is returned to the caller. If the 
device is active and a WAITIO has been 
issued, a purge is required. SVC 25 is 
issued and the purge bit is reset. Then a 
check is made to determine if CCBl or CCB2 
is available. If not, a code of X 1 08 f is 
returned to the caller. If so, a pointer 
is set to the available CCB. 



IJZAD036: WAITIO Chart BP 



OBJECTIVES: Provide the facility for a 
test section to wait for any interrupt, 
device end, or completion of an I/O 
operation initiated through EXIO or to poll 
to determine if an interrupt has occurrd as 
a result of an active EXIO. 

It also provides the facilities to purge 
an outstanding I/O request or to give up 
control for a specified minimum period of 
time. 

ENTRY POIN T: Label EPZAD036. 

EXIT: Return to caller. 

EXTERNA L ROUTINES: 

1. CECOM (IJZAD037). 

2. CONVERT (IJZAD041). 

INPUT: Parameter list: $WIOTRMG, 
$WIOLEVL, $WIOIPNT, $WIOTECB, $WIOCDS, 
$WIOFLAG, $WIOTIME. 



The first six bytes of the CCB are 
cleared. Further checks are made to 
determine if line connection is required. 
If so, the line connection module is 
called. If line connection is 
unsuccessful, a code of X* 14' is passed 
back to the caller. 

Next, the program checks the 
f ile-protect-mode bit in the device table. 
If it is on, the CCW chain is scanned for 
data protection violations. If any are 
found, a code of X 1 0C 1 . is returned to the 
caller. 

Next the CCB is built. The CCW address 
and LUB assignment are moved in and a 
return code of X'OU 1 is set to indicate the 
existence of an OLTEP appendage. If 
ATTNIN=YES is specified, a bit is set in 
the device table. The active bit in the 
device table and a bit indicating the CCB 
in use are set. Another bit in common is 
set indicating that the CCB is in use. The 
CCW chain is then executed via the EXCP 
macro. Before returning to the caller a 
test is made to determine if SENSE=NO was 
specified. If it was, the return code is 
set to X' 10' . Otherwise it is set to 
X'OO 1 . 



INPUT (PARAMETER LIST) : TECB address, CCW 
address and count, CDS address (optional), 
Flag Byte (contains indicators to show if 
ATTNIN=YES, _BUSY=YES, and/or SENSE=NO are 
specified) . 



OUTPUT : 



Return codes: 

X'OO 1 = Event complete (WAIT=YES, 

POLL=YES) 

DE occurred (WAIT=DE) , Purge 

done (PURGE=YES). 
X'OU' = Function not available. 
X 1 08' ■= WAIT timed out. 
X'lO' = Polled event occurred 

(POLL=YES) 

Interrupt occurred IWAIT=ANY). 
X'OC = Program error (device not in 

table, not active, or TECB 

address is not equal to EXIO 

TECB address). 



METHOD: 



The functions which the caller may 
request (via the parameter list) includes: 

1. WAIT=YES — a request of this function 
causes a check for event complete. If 
it has not yet occurred, a timing loop 
is set up for the number of seconds 
specified by the caller or a default 
of 30 seconds. Within the loop an 
interrogation is made to determine if 
the event is complete. Return codes 
are set as defined in OUTPUT above. 

2. POLL=YES — this causes a test to be 
performed to determine if an interrupt 
has occurred. Immediate return to the 
OLT is effected with a return code 
issued as specified in OUTPUT above. 
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6. 



WAIT=DE — this function is the same 
as WAIT=YES except that control is 
returned to the caller on the 
occurrence of DE. 

WAIT=ANY — this function is the same 
as WAIT=YES except that control is 
returned to the caller on the 
occurrence of any interrupt on the 
specified device. 

PURGE=YES — I/O or device specified 
in the CDS is purged. 

TIME= Integer (alone) -- control is 
returned to the OLT when the specified 
time has elapsed. 



IJZA DQ37: C ECOM Chart BQ 



All outgoing and incoming messages are 
also issued to the SYSLST device. 

With RETAIN/370 active, all messages to 
the SYSL0G device also print on the remote 
specialist's console with the exception of 
0LTEP data protection messages. A reply 
code of •OS 1 is available for communication 
between the onsite CE and the remote 
specialist. You can enter this reply at 
any communications interval without 
affecting the testing procedure. 

Note ; A pointer to a parameter list is 
supplied, in GPRl, by the caller. The 
parameter list contains four byte 
addresses of: 

1. The out message and its byte count. 

2. The in message and its byte count. 

3. Flags. 



O BJECTIVE ; Provide communications between 
the (OLT) unit test section or OLTEP and 
the operator. 

ENTRY POINT: Label EPZAD037. 



IJZAD039: DPRINT Chart BS 



EXIT: Return to caller. 



| EXTE RNAL ROUTINES; EXCP, WAIT, CCB. 



INPUT: 



Address of parameter list in GPRl. 



| OUTPUT : All CECOM messages. 



1. Return codes: 

X' 00' := Successful. 

X'Oti 1 = Facility not available. 

X 1 08' := Error condition. 

X'OC 1 = Still awaiting reply. 

X'10' ;= Outstanding message (only 
one outstanding message 
allowed at a time). 



Messages: 
E175I. 



E100I, 04E101D, 04E154D, 



METHOD: 



For two-way communications, an 



outgoing message is moved from the caller's 
area to the operator communications buffer, 
and its byte count is placed in the output 
CCW. The message is then issued to the 
SYSLOG device via EXCP. An incoming 
message is read into the operator 
communications buffer and translated to 
uppercase. The message and its byte count 
are placed in the areas specified by the 
caller. 

For one-way communications, an EXCP is 
issued. 



OBJECTIVES : This module provides the means 
for handling print requests from test 
sections. It will: 

1. Examine the parameter list for a line 
to print. 

2. Determine if a line should be printed 

3. Determine if the line should go to 
both the console device and output 
device. 

4. Determine the types of messages to be 
issued and call the appropriate 
message formatting modules. They are: 
(A) Header, (B) Description or message 
(comments), (C) CCW/CC, (D) CSW 
(expected, received), (E) Sense 
(expected, received), and (F) Data 
(expected, received, written). 

5. Do the above until all lines are 
printed. 

6. Issue the first error and/or * 
catastrophic error messages (if 
required) and exit to the 
communication interval. 

7. Return to caller if communication is 
not required. 



ENTRY POINT: Label EPZAD039. 



OLTEP /OLT Support Modules 33 



EXIT ; Return to caller or communications 
interval (IJZAD052). 

EXTERNAL ROUT INES : 

1. Communications Interval (IJZAD052). 

2. Header Message (IJZADO60). 

3. Description Message (IJZAD061). 
U. CCW message (IJZAD062). 

5. CSW message (IJZAD063). 

6. Sense message (IJZAD064). 

7. Data message (IJZAD065). 

8. Output writer (IJZADO70). 



| Level Information Printed 
^ . 



1 o 


Header 


1 1 


Header and descriptions 




message. 


1 2 


Header and results 


1 3 


All 



If the SYSLST device is selected and the 
output is limited to as few as 61 
characters, forms control may not yield the 
desired results. Also, printing will not 
occur if the NPR (no print), EL (error 
loop), or TL (test loop) options are 
selected simultaneously. 

With RETAIN/370 active all messages to the 
system output device (SYSLST) also print on 
the remote specialist 1 s device. 



INPUT : 



Pointer to a parameter list 



consisting of 4-byte pointers to the 
following information: 

1. Control field — Four bytes of flags 
indicating forms control, message 
levels, type of error, and type of 
data. 

2. Message list — Pointers to the 
messages and comments to be printed. 

3. Test event control block (TECB). 



OUTPUT : 

1. Parameter list passed to formatting 
modules. 

2. Message address length, and forms 
control to the Output Writer. 

3. Return codes: 

X^O* = Successful 
X^ 1 = Facility not available. 
X'OC = Missing parameters, 
a. Messages E129I and E157I. 



IJZADO40: $Mode Chart BT 

OBJECTIVE: Determines if it is possible to 
place the foreground partitions in a 
quiescent state; and if it is, waits until 
the foregrounds are quiesced. 

ENTRY_POINT: Label EPZADO4 0. 

EXIT : 

1. Scheduler (IJZADO00) if quiesce is not 
available. 

2. To caller, if quiesce is available. 
EXTERNAL ROUTINES : 

1. CECOM (IJZAD037) . 

2. Check teleprocessing (IJZACKTP), 



INPUT: Parameter list, address of PSW 
table. 

OUTPUT: Messages: 04E199D, 04E221D, 
E222I, E229I, E233I. 



METH OD: All output is sent to the SYSLST 
device. If the operator selects the 
parallel printer option, output is also 
routed to the SYSLOG device. If the 
operator selects message level control, 
only those lines corresponding to the 
requested level are routed to the SYSLOG 
device. The four requested levels to 
determine the type of printed output are: 



METHOD: Upon entry into this module, 
standard linkage conventions are followed 
and the local-print-only bit is set. If 
PSWTABLE was specified as a parameter, a 
message (E229I) is issued to inform the 
operator that the section was bypassed, and 
an exit is made to the scheduler. If 
running on a non-MPS system, the quiesce 
mode bit is turned on, message E233I is 
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issued i and a return to the caller is 
executed. 

On MPS systems the program calls module 
IJZACKTP to determine if teleprocessing 
(TP) is active. If it is, the foreground 
connot be quiesced, and the section is 
bypassed after informing the operator via 
message E229I, 

When TP is not active, the operator is 
asked if the foreground can be quiesced. 
If it can be, message E222I is issued 
requesting the operator to issue the 
commands necessary to stop the foreground. 
The program information blocks are then 
checked until it is ascertained that both 
foreground partitions are quiesced. Then 
message E233I is issued, and the caller is 
returned to. If the reply to the 04E221D 
message is NO, the test is bypassed and 
message E229I is issued. The 
local-print-only bit is reset before 
returning to the caller. 



METHOD: To determine which conversion is 
to be made, the module tests bit of the 
fourth word of the parameter list passed by 
register 1* If the bit is on, conversion 
is from hex to EBCDIC (H/E) ; otherwise, 
from EBCDIC to hex (E/H). 

In the Hex to EBCDIC conversion, four 
bits are converted at a time. Every hex 
character has an EBCDIC conversion. (2 
bytes of EBCDIC per 1 hex) 

If the conversion is from E/H, the 
program checks to determine if the byte 
count is odd. If so, a switch is turned 
on. Each EBCDIC character is converted 
into a hex character of four bits. Thus, 
it takes two EBCDIC characters to form a 
byte of hex characters. 

Therefore, if the switch is on 
(indicates an odd number of EBCDIC 
characters) after the last conversion, this 



module also converts a FO 
complete the last byte. 



into a hex to 



After each conversion is completed, 
successful or not, the registers are 
restored, and an appropriate return code is 
sent back to the caller. 



I JZAD041 : 



Convert Chart BU 



O BJE CTIVE: Convert all hex digits to their 

equivalent EBCDIC characters or the EBCDIC IJZAD042j_ MQRECORE Chart_BV 

characters to their equivalent hex digits 
0-F. 

OBJECTIVE: Provide available core space to 
the calling routine. 
ENTR Y POINT: Label EPZAD041. 

ENTRY_P0INT: The label EPZAD042. 

EXIT : Return to caller. EXITS: Return to the on-line test. 

INPUT: MAXSIZE, maximum number of the 
INPUT : bytes required. MINSIZE (optional), 

minimum number bytes required. 
• Address: Of character to be converted. 

OUTPUT : Return codes : 



© Address: To put the converted 
characters. 

« Count: Number of bytes to convert. 

• Type: Hex or EBCDIC (H/E). 



X' 00' .= Successful core allocation. 
X'OU' = MORECORE facility not 

available, 
X'08 1 = Core requested not available. 



OUTPUT : Return codes : 

X 1 00 • = Successful completion. 

X'OU' = Macro level not complete. 

X 1 08* = Invalid hex to EBCDIC 

conversion. (The address of 
the failing character is in 
GPR1. ) 



METHOD : If the call macro is not 
compatible with the MORECORE module, a code 
of X'04 1 is returned to the caller. If it 
is compatible, the program determines the 
amount of core available by subtracting the 
size of the OLT (ROOT and PLINK modules) 
from the size of the OLT partition. It 
compares this amount to the maximum and 
minimum requests. If the amount is less 
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than the minimum, or less than the maximum 
with no minimum request being specified, 
control returns to the OLT with a X^S 1 
code (indicating core requested is not 
available). If the amount of core 
satisfies the maximum or minimum request 
and no previous MORECOREs have been given 
to this section, an amount equal to either 
the maximum or minimum is given. 



If previous MORECOREs have been given, 
the program determines the amount available 
by subtracting the highest byte given in a 
MORECORE entry (HIGHL0C) from the highest 
byte of the partition (END PART). If this 
amount equals or exceeds the maximum 
request, the maximum is given. If not, 
MORECORE tries to satisfy the maximum 
request with a FREECORE entry. If FREECORE 
has not been used or if neither the maximum 
or minimum request can be filled with a 
FREECORE entry, the program compares the 
(ENDPART-HIGHLOC) amount to the minimum 
request. Failure of all these attempts 
results in a return to the test section 
with a X' 08' return code. 



When a request is satisfied an X'OO' 
return code is passed to the caller along 
with the location and size of the storage 
allocated, in registers 1 and 0, 
respectively. 



Note 2 : The section control table is 
accessed to get the OLT partition size 
(size of the partition starting from 
the beginning of the OLT). 

The section preface is referred to for 
RTSIZE (size of the OLT, ROOT and PLINK 
modules). 

The highest byte of the partition is 
obtained from the communication region 
of the DOS supervisor. 



IJZAD043: FREECORE Chart CA 



OB JECTIVES ; Free up an area of core 
previously obtained by a MORECORE request. 



ENTRY POINT: 



Label EPZAD043 from the 



transient manager. 

EXIT: To the on-line test via the 
transient manager. 



INPUT: 



The address of the area to be freed 



is specified as a parameter in the FREECORE 
macro called by the unit test. 



Note 1; A doubleword at the beginning 
of each allocated area is reserved for 
management. The first word indicates 
the size of the area, and the second is 
a pointer to the next MORECORE entry. 
The address of the obtained core 
(passed to the unit test) is the 
address following the doubleword, and 
the size passed is the size less the 
doubleword. 

MORECORE also requires three pointers 
in the (nucleus) OLTEP common area. 

1. $FRSTL0C. Address of the first 
MORECORE entry 

2. $PREVLOC. Address of last MORECORE 
entry 

3. $HIGHL0C. Highest byte given in a 
MORECORE entry^ 



The following FREECORE pointers are 
also referred to: 

1. $FSTFREE. Pointer to first 
FREECORE entry 



OUTPUT: Three possible return codes are 
passed to the caller in register 15: 

1. X'OO' = Indicates that the area has 
been successfully freed. 



2. 



$LSTFREE. 
entry 



Pointer to last FREECORE 



X 1 04' ;= Indicates that the FREECORE 
facility is not available. Given when 
macro level is incorrect. 

X 1 08' .:= Indicates that the address 
specified does not correspond to any 
returned on a MORECORE request 



METHOD : When FREECORE receives control, 
the address specified in the macro is 
decreased by 8 so that it points to the 
beginning of the management area. This 
address is compared to the MORECORE entry 
addresses until a match is found. 
Adjustment of pointers remove the MORECORE 
entry at this address from the MORECORE 
list. Before including this area in the 
FREECORE list, the program checks to 
determine if it is contiguous to an already 
existing FREECORE entry. If this is the 
case, the two adjacent areas are 
incorporated as one entry. Otherwise, the 
new entry is placed at the end of the 
FREECORE list. 
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Notes: A doubleword at the beginning 
of each FREECORE entry is used for 
management. The first word indicates 
the size of the area while the second 
points to the next FREECORE entry. 

FREECORE also requires two pointers in 
the nucleus, one pointing to the first 
FREECORE entry ($FSTFREE) and the other 
($LSTFREE) pointing to the last. The 
pointers must be set to at the 
beginning of each section. 



The privileged operation is then executed 
and the resulting condition code posted. 

If a condition code (CC1) occurs on a 
TIO or HIO r the CSW is posted. If unit 
check occurs in the status, a sense is 
issued and the sense data is posted in the 
sense field of the TECB. If no sense field 
is available, the sense is issued with the 
suppress data transfer bit on. 

After condition code posting and status 
examination (when necessary), control is 
returned to the OLT with a return code of 
X'OO 1 . 



IJZAD044: DIO Chart CB 



OBJECTIVES : Issues the required privileged 
instructions for a calling routine by 
utilizing a SVC 46. 

ENTRY POINT: Label EPZAD044. 

EXIT : Return to caller. 

EXTERNAL ROUTINES : 

1. CECOM (IJZAD037). 

2. Check teleprocessing (IJZACKTP). 

3. Macros: TIO, TCH, SIO, HIO. 

INPUT: CDS address, operation requested, 
TECB address. 



IJZAD047: Routine Chart CD 



OBJECTIVE: Determine whether a given 
routine should be run by checking the 
appropriate bits in the section control 
table. 

ENTRY POINT : Label EPZAD047. 

EXIT: To the calling routine. To the 
Routine following the calling routine, if 
the calling routine cannot be run. 

EXTERNAL ROUTINE: CECOM (IJZAD037). 



OUTPUT: 



1. 



Return codes : 

X* 00" '= CC status, sense posted. 
X'OU 1 = Function not available. 
X* 08* = Time-out occurred to 

terminate the operation. 



2. 



Messages: 
E233I. 



04E199D, 04E221D, E222I, 



METHOD : For the DIO request to be 
performed, the specified device must be 
grabbed or primary. For an HIO request 
(except for TP terminal devices) the system 
must be quiesced. If the system is not 
already in quiesce mode, the operator is 
asked if the foregrounds can be stopped. 
If not, a return code of X'OU 1 is set and 
control is returned to the caller. If 
operator permission for quiesce mode is 
granted, the operator is then requested to 
issue system commands to quiesce 
foregrounds (Fl and F2) . The module then 
loops until the quiesce is complete. 

When the system is quiesced (for HIO 
request) or a TIO or TCH is requested, SVC 
46 is issued to enter supervisor state. 



INPUT: 

• Address of next routine. 

• Address of RTNTERM -(if TERM=YES) 

• Reference number used in header of 
error printed. 

OUTPUT: Message: E210I. 



METHOD: After the program verifies the 
correct macro level, a check is made for 
the MASK=|Y1I parameter. This indicates a 
need for manual intervention. If this 
parameter is included, ROUTINE interrogates 
the MI bit in the section control table to 
determine if the CE selected this option. 
If MASK=MI is specified and the CE has not 
selected this option, the following message 
is printed: 



E210I ROUTINE BYPASSED 
INTERVENTION REQUIRED 



MANUAL 
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and a branch is taken to the next routine. 
If the MI bit is on or if MASK=MI is not 
indicatedj the routine mask in the section 
control table is checked to determine if 
the bit corresponding to the calling 
routine is on. If not, the routine cannot 
be run and a branch is taken to the next 
routine. If the routine bit is on, the 
active routine number in the section 
preface is updated, the error bit in the 
section control table is reset, the 
reference number (if any) is moved into the 
section preface, and the routine is allowed 
to run. 

The TERM=YES parameter designates the 
last routine of the module. In cases where 
this routine is not allowed to run, ROUTINE 
branches to RTNTERM, the address of 
termination code in the last routine. 



1. An asterisk if error printout. 

2. Section ID. 

3. Routine number. 

4. Device address. If the device address 
is not supplied in the DPR1NT request 
it is retrieved from the TECB 
(provided the TECB address is 
supplied). If neither address is 
given, the device address cannot be 
printed. 

5. A reference number, if supplied. 

6. The Engineering Change Announcement 
(ECA) number. 



IJZA DO60; He ader Message Chart CE 



IJZAD061^ Description Message Chart_CF 



O BJE C TIV E: Construct a basic header line 
and call the output writer module to issue 
it. 



ENTRY POINT ; EPZADO60. 
EXIT: Return to caller. 



OBJECTIVE : Controls the printing of 
descriptions and messages. The lines to be 
printed are moved to the print buffer and 
the output writer module is called to issue 
the message. 



ENTRY POINT: Label EPZAD061. 



EXTERNAL ROUTINE : Output Writer 
(IJZADO70). 



EXIT: Return to caller. 



INPUT : Upon entry, GPR1 contains a pointer 
to a parameter list consisting of four byte 
pointers to the following information: 

• The control field. This is a fullword 
of flags and control bits that indicate 
forms control, message levels, type of 
error, and type of data required for a 
data message. 

• A message list. Pointers to the 
messages and comments to be printed. 

• The Test Event Control Block (TECB). 



OUTPUT : The message, its length, and a 
forms control character are passed to the 
output writer module via a pointer in GPRl. 



EXTERNAL ROUTI NE: Output Writer 
(IJZADO70). 



INPUT : Upon entry, GPRl contains a pointer 
to a parameter list consisting of four byte 
pointers to the following information: 

1. The control field. This is a fullword 
of flags and control bits which 
indicate forms control, message 
levels, type of error and type of data 
required for a data message. 

2. A message list. Pointers to the 
messages and comments to be printed. 

3. The Test Event Control Block (TECB) 



METHOD: 



This module constructs a basic 



header line and calls the output writer 
module to issue it. The content of the 
message is: 



OU TPUT : The message, its length, and a 
forms control character are passed to the 
Output Writer module (IJZADO70) via a 
pointer in GPRl. 
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METHOD ; The message, its length and a 
forms control character are passed to the 
output writer module via a pointer in GPRl. 



ENTRY POINT: Label EPZAD063. 



EXIT: Return to caller. 



EXTERNAL_ROUTINE : 
(IJZADO70). 



Output Writer 



IJZADQ62: CCW Message Chart CG 



OBJECTIVE : Construct CCW messages 
containing CCW, CAW, and CC. 

ENTRY POINT : Label EPZAD062. 

EXIT : Return to caller, 

EXTERNAL ROUTINE : Output Writer 
(IJZADO70). 



INPUT : Upon entry, GPRl contains a pointer 
to a parameter list consisting of four-byte 
pointers to the following information: 

1. The control field - This is a full 
word of flags and control bits which 
indicate forms control, message 
levels, type of error and type of data 
required for a data message. 

2. A message list - (pointers to the 
messages (comments) to be printed), 

3. The Test Event Control Block (TECB) . 



INPUT: Upon entry, GPRl contains a pointer 
to a parameter list consisting of four byte 
pointers to the following information: 

1. The control field. This is a fullword 
of flags and control bits that 
indicate forms control, message 
levels, type of error and type of data 
required for a data message. 

2. A message list. Pointers to the 
messages (comments) to be printed. 

3. The Test Event Control Block (TECB). 



OUTPUT : The message, its length, and a 
forms control character are passed to the 
Output Writer (IJZADO70) via a pointer in 
GPRl. 

METHOD : The CCW and CC addresses are 
supplied in the DPRINT request. The device 
address is used to retrieve the CAW from 
the TECB. If the device address is not 
given, the primary device address is used. 
If the TECB address is not given, a return 
code of X'OC' is set, and the rest of the 
DPRINT request is processed. A CCW in 
error is prefixed by an asterisk (*) on 
request. 



OUTPUT: The message, its length, and a 
forms control character are passed to the 
Output Writer (IJZADO70) via a pointer in 
GPRl. 



METHOD : This module constructs expected 
and received CSW messages, each containing 
information related to one or two CSWs. 
Each block of information contains key, 
command address, CSW, and residual count. 

The expected CSW is composed of only 
those elements supplied in the DPRINT 
request. The received CSW contains all 
four items. If the CSW address is not 
given, the TECB is searched, using the 
| device address for the needed information. 
If the device address is not given, the 
primary device address is used for the 
search. A message line for a CSW in error 
is prefixed by an asterisk (*) upon 
request. 



IJZAD06 4: Sense_Message Chart CK 



OBJECTIVE: Construct expected and received 
sense messages. 



IJZA D063: CSW Message Chart CH 



ENTRY POINT: Label EPZAD064. 



EXIT: Return to caller. 



OBJECTIVE : Construct the expected and 
received CSW messages. 



EXTERNAL ROUTINE : Output Writer 
(IJZADO70). 
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INPU T; Upon entry, GPR1 contains a pointer 3. The Test Event Control Block (TECB) , 
to a parameter list, (consisting of 
four-byte pointers to the following 
information) : 



1. The control field. This is a fullword 
of flags and control bits that 
indicate forms control, message 
levels , type of error, and type of 
data required for a data message. 

2. A message list. Pointers to the 
messages and comments to be printed, 

3. The Test Event Control Block (TECB). 



OUTPUT : The message, its length, and a 
forms control character are passed to the 
output writer (IJZADO70) via a pointer in 
GPR1. 



OUTPUT : The message, its length and a 
forms control character are passed to the 
Output Writer module (IJZADO70) via a 
pointer in GPR1. 



METHOD: This module constructs expected, 
received, and written data messages and 
calls the output writer module to issue 
them. The length of data is variable, 
therefore the number of lines printed for 
each type of data is variable. The first 
message line of received data in error is 
prefixed by an asterisk (*). 



METHOD : This module constructs expected 
and received sense messages and calls the 
output writer module to issue them. If the 
received sense address is not given, the 
TECB is searched using the device address, 
sense field length, and sense field count. 
If the device address is not given, the 
primary device address is used for the 
search. A message line for a sense in 
error is prefixed with an asterisk (*) upon 
request. 



IJZADO70: Output Writer Chart CM 



OBJECTIVE: Provide the print functions for 
error messages and some OLTEP messages. 

ENTRY POINT : Label EPZADO70. 

EXIT : Return to caller. 

EXTERNAL ROUTINES: CECOM (IJZAD037). 



IJZAD065: Data Message Chart CL 



OBJECTIVES : Construct expected, received, 
and written data messages. 

ENTRY POINT : Label EPZAD065. 

EXIT : Return to caller. 

EXTERNAL ROUTINE : Output Writer 
(IJZADO70). 

INPU T: Upon entry, GPR1 contains a pointer 
to a parameter list consisting of four-byte 
pointers to the following information: 

1. The control field. This is a fullword 
of flags and control bits that 
indicates forms control, message 
levels, type of error, and type of 
data required for a data message. 

2. A message list. Pointers to the 
message and comments to be printed. 



INPUT: A pointer to a parameter list is 
supplied, in GPR1, by the caller. The 
parameter list contains a: 

1. Four-byte pointer to the message. 

2. One-byte forms control character. 

3. One-byte message length (in bytes). 



OUTPUT : 



The message is printed on SYSLST 



and, if required, on SYSLOG devices. 



METHOD : This module provides the print 
function for error messages (DPRINT) and 
OLTEP messages. The messages are issued as 
follows : 

1. Error messages are issued to SYSLST. 
These are also issued to SYSLOG if: 

a. A console keyboard is assigned to 
SYSLOG. 
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b. The alternate printer option is 
selected. 

c. The message level agrees with the 
alternate printer level option 
specified by the operator. 

OLTEP messages are issued to SYSLOG 
and SYSLST. 



module prints a list of all the possible 
ways that the entries for the test field 
can be entered. 



IJZADQ732. Prompt_Option Chart_CQ 



IJZAD071: Prompt Device Chart CN 



OBJECTIVE : Provide illustrated examples of 
the possible device field entries. 

ENTRY P OINT: Label EPZAD071. 

EXIT : Communication Interval (IJZAD052). 

EXTE RNAL ROU TINE : CECOM (IJZAD037). 

INPUT: Reply to message: 

01E105D ENTER DEV/TEST/OPT 

OUTPUT : Illustrative examples of devices, 
message E147I. 

METHOD : PROMPT DEV is an aid to the 
operator in making his response to the 
message 01E105D ENTER DEV/TEST/OPT/. This 
module prints a list of all the possible 
ways that the entries for the device field 
can be entered. 



OB JECTIVE : Provide illustrated examples of 
the possible option field entry. 

ENTRY POINT : Label EPZAD073. 

EXIT : Communication Interval (IJZAD052). 

EXTERNAL__ROUTINE: CECOM (IJZAD037). 

INPUT: Reply to message: 

01E105D ENTER DEV/TEST/OPT 

OUTPUT: Illustrative examples of options, 
message E149I. 



METHOD : 



PROMPT OPT is an aid to the 



operator in making his response to the 
message 01E105D ENTER DEV/TEST/OPT. This 
module prints a list of all the possible 
ways that the entries for the option field 
can be entered. 



IJZAD076: REI Initialize #1 Chart CR 



IJZAD072: 



PROMPT TEST Chart CP 



OBJECTIVE : Provide ^illustrated examples of 
the possible test field entries. 

ENTRY POINT : Label EPZAD072. 

EXIT : Communication Interval (IJZAD052). 

E XTERNAL ROUTINES : CECOM (IJZAD037). 

INPUT: Reply to message: 

01E105D ENTER DEV/TEST/OPT 

OUTPUT : Illustrative examples of tests, 
message E148I. 

METHOD : PROMPT TEST is an aid to the 
operator in making his response to the 
message 01E105D ENTER DEV/TEST/OPT. This 



OBJECTIVE: Determines if RETAIN/370 can 
operate on the system. 

ENTRY POINT: EPZAD076. 



EXITS ; 



2. 



Communications Interval (IJZAD052) if 
unsuccessful. 

REI Initialize #2 (IJZAD077) if 
successful. 



EXTERNAL ROUTINES : 

1. CECOM (IJZAD037) to issue messages. 

2. Scheduler (IJZADO00) to cleanup for 
OLT removal. 

METHOD : The module determines if REI is 
already in main storage. If it is r a 
message is issued and the Communications 
Interval module is entered. If it isn 1 t 
already iny the following checks are made 
to determine if it can be loaded: 
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• Is the REI device (IBM 2955) assigned 
to SYS005? 

• Is a console device available? 

• Are console interrupts (FOPT 0C= YES) 
allowed? 

• Is the background partition at least 
18K? 

If the answer to any of these is no, 
message E164I is issued and exit is taken 
to the Communications Interval module. If 
all the conditions are met, the current 
OLT's cleanup routine is performed and the 
REI Initialize #2 module is entered* 



OUTPUT : Messages E137I, E176I, and E169I. 

METHOD: This module is entered if either 
the on-site CE or the remote specialist 
enters STOPREI at a communications 
interval. The following actions are taken: 

1. All active CCBs are canceled. 

2. The REI device is closed. 

3. Message E169I (RETAIN/370 TERMINATED) 
is issued. 

4. All REI switches are reset. 

5. The borrowed 4K is returned. 



IJZAD077: REI Initialize #2 Chart CS 

OBJECTIVE: Establish communication with 
the remote analysis center. 

ENTRY POINT : EPZAD077. 

EXIT : Communications Interval (IJZAD052). 

EXTERNAL ROUTINES : 

1. CECOM (IJZAD037) to issue messages. 

2. REI nucleus (IJZADO10). 

METHOD : The partition size is reduced by 
4K to make room for the REI modules. The 
REI nucleus is then loaded and relocated. 
The REI device (IBM 2955) is opened, and 
communications with the remote analysis 
center is attempted. If communications are 
established, and the proper response is 
received, the line is put in receive mode, 
message E163I is issued, and the 
Communications Interval module is entered. 
If communications cannot be established, or 
the proper response is not received, the 
borrowed 4K is returned and the 
Communications Interval module is entered. 



IJZAD078: RE I Termin ate Char t CT 

OBJEC TIVE : Deactivate RETAIN/370. 

ENTRY POINT : EPZ AD07 8 . 

EXIT : Return to caller. 

EXTERNAL ROUTINE : CECOM (IJZAD037) to 
issue message. 



IJZAD085: Device Update Chart CU 



OBJECTIVE : Supplement the configuration 
data set when an old on-line test is 
called, and no CDS exists for the test 
device. 



ENTRY JPOINT: EPZAD085. 

EXIT : Return to Scheduler (IJZADO00). 

EXTERNAL_ROUTI NES : 

1. CECOM (IJZAD037). 

2. CONVERT (IJZAD041). 

INPUT: Pointers to primary device and 
adapter code for teleprocessing. 

OUTPUT: 

• Unit address in SCT. 

• Device features in device table. 

• Symbolic unit address in CCB. 

• Messages: E030I, 04E199D, 04E227D. 

METHOD: When this module is entered, the 
device feature information is placed in the 
SCT, CCB and the current device table 
entry. If the device is for 
teleprocessing, the TPSCT and TPCCB are 
loaded with data describing the line zero 
device. For any TP device, the adapter 
subroutine uses a two-way CECOM call to ask 
the operator to furnish a two-character 
adapter code. 
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IJZAD09a: External Interrupt Handler 
Chart CW 



OBJECTIVES: Receive control from DOS when 
a 1419 external interrupt occurs* Post the 
interrupt in the test section TECB if it 
has an I/O operation active on the device. 



ENTRY POINT: 



Label EPZAD09 4. 



EXIT : Return to DOS Supervisor. 
INPUT: Not applicable. 
OUTPUT: Not applicable. 



METH OD: Upon entry to the module, standard 
linkage is performed to save the caller's 
registers. Next, the old external PSW is 
examined to pick up the line code, which is 
used to search the device table for the 
device that causes the interrupt. If no 
entry is found in the device table or if an 
entry is found and the device is not 
active, a return is made to the DOS 
supervisor via GPR7. Otherwise, the old 
external PSW is stored in the TECB 
associated with the I/O request, and 
control returns to the supervisor via GPR7. 



IJZAD098: CCB Appendage Chart CX 



OBJE C TIVE : Handle interrupts for devices 
on which an EXIO has been performed. 
Relevant information is posted in the TECB 
associated with the I/O request. 

ENTRY POIN T: Label EPZAD09 8. 

EXIT : 

SIOCC Return: to caller via GPR11. 
Interrupt Return: to caller via GPR7. 

EXTERNAL ROUTINE : None. 

INPU T: SIO CC (GPR7) 

CCB address in GPR1. 

OUTPUT: Posting in TECB (sense data). 

METHOD : This module receives control from 
the supervisor upon occurrence of an SIO 
condition code or an I/O interrupt from a 
device to which an EXIO has been issued. 

When control is passed from the 
supervisor, a bit is set in the CCB (byte 8 
bit 5) indicating an I/O passback. If the 
bit is not on, it is an I/O interrupt 
passback. In all cases, first a search is 
made of the device table to find the device 



associated with the event. The table is 
searched by Logical Unit Assignment and the 
device must be active and be using the CCB 
address passed to this module in GPR1. If 
any of these requirements are not met, the 
search continues until the end of the table 
is reached. If no device is found, a 
return is made to the supervisor via GPR7. 
If there is an I/O interrupt passback, a 
return to supervisor is made via GPR7; if 
there is an SIO passback, a return is made 
via GPR11 after reseting the indicator in 
the CCB. 



When the proper device has been found, a 

test is made to determine if it is an SIO 

passback. If it is, the following are 
posted: 

1. CCO — This condition code is posted 
in the TECB (for level 3 EXIO and up) 
unless all fields are full. If all 
fields are full, the counter is 
updated. Control is then returned to 
the supervisor via GPR11 after 
resetting the SIO passback indicator. 

2. CC2 — This condition code is not 
posted. Control is returned to the 
supervisor as described for CCO. 

3. CC3 — Condition code 3 is posted as 
described for CCO. Event complete is 
also posted and control is returned to 
the supervisor as described for I/O 
passback. 

4. CC1 — Condition code 1 is posted 
along with the status stored. An 
indicator is set to show the 
occurrence of a CC1 and the event 
occurred bit ($INTOCC) in the device 
table is set. Status stored is 
examined as described below for I/O 
interrupt. However, upon return to 
the supervisor, a check is made to 
determine the method of return to be 
used. 

If it is not an SIO passback, interrupt 
handling (described below) takes place. 
Note that status examination for CCl is 
done in the same manner as in interrupt 
handling. 

If there is room in the TECB, the CSW 
associated with the interrupt is posted 
along with the device address and an event 
code of FF which indicates that the CSW was 
posted. However, if the TECB is full and 
the event code is not FF, the event counter 
is dumped. Also, if the last event from 
the device was a condition code 1, the flag 
indicating $CCIOCC is reset and control is 
returned to the supervisor via GPR7. (The 
status will be the same as from the 
condition code). 
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After posting, the event occurred bit 
($INTOCC) is set in the device table and 
the status is examined. If unit check is 
in the status, an SIO to sense is issued. 
The sense data is read directly into the 
TECB unless all fields are used. Then, the 
count is incremented and the sense is 
issued with the suppress data transfer flag 
on. If sense fails on the first try (CC^O) 
and if SIO condition code was 1, sense is 
retried. If SIO condition code was 2 or 3, 
sense count is not incremented. If on 
retry a CCO occurs, all intervening status 
stored is OR'ed together, CUE and busy are 
turned off, and the CSW is posted in an 
event field (if available) . In any case 
where SIO CCO occurred, a TI0 is issued to 
clear the device. 

In all cases where unit check occurs, 
the UC is turned off, DE is turned on with 
any other error status, event complete is 
posted, and control is returned to the 
supervisor via GPR7 (unless SIO passback). 

If UC is not in status, a check is made 
to determine if DE has already occurred. 
If it has and ATTNIN was specified, event 
complete is posted. The supervisor is 
returned to via GPR7 when DE has occurred 
and DE has occurred and DE in bits ($DE0CC, 
$DEVEND) are set in the device table. 
Event complete is posted if ATTNIN was 
specified. The supervisor is then returned 
to via GPR7. 

On all returns to the supervisor after 
examining status, a check is made for: 
(a) Program check, (b) Protection check, 
(c) Channel data check, (d) Channel control 
check, (e) Interface control check, or (f ) 
Chaining check. 

If any of the above are in the status, 
the bits are turned off, DE is turned on, 
and event complete is posted before 
returning to the supervisor. 



2. m/yy - (GPRl). 

3. Return codes: 

X'OO' = Date returned in GPRs. 
X 1 04 1 = Facility not available. 

METHOD: This module provides the calendar 
date in registers and 1, in the format 
DD/MM/YY. The date is retrieved from the 
communication region, reformatted (if 
necessary) and returned to the caller. 



IJZADQAB: $DTIME Chart DB 

OBJECTIVE: Provide the time of day to the 
requestor. 

ENTRY POIN T: Label EPZAD0AB. 

EXIT: Return to caller. 

EXTERNAL ROUTINES : GETIME ( SVC3 4 ) . 

INPUT: Not applicable. 

OUTPUT : Return codes in GPRl 5: 

X'OO' = Operation successfully 

completed. 
X'04 1 = Facility not available. 
Time of day in packed decimal 
(GPRl). 

METHOD: This module provides the time of 
day. The time is retrieved, using the 
system GETIME macro with the STANDARD 
parameter, and returned to the caller in 
GPRl in packed decimal format. 

Time is given in hours, minutes, and 
seconds military time in GPRl packed 
decimal. The format is OHHMMSSF. For 
example 3:45 PM would be represented by 
0154500F in GPRl. 



IJZADQAA: $DDate Chart DA 

OBJECTIVE : Provide the calendar date to 
the requestor. 

E NTRY PO INT: Label EPZADOAA. 

EXIT : Return to caller. 

INPU T: Not applicable. 

OUTP UT: 

1. dd/m - (GPRO). 



IJZADOACj_ LETGO Chart_DC 

OBJECTIVE: Control the flag bit in the 
device table that indicates if that device 
may be grabbed. 

ENTRY_POINT: EPZADOAC. 

EXIT: To the calling module. 

INPUT: Pointer to the device address. 

OUTPUT: Not applicable 
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METHOD : The device table is searched for 
the requested device. When it is found, 
the LETGO, GRAB, PRIMARY, and ALOCAT bits 
are turned off. Then, a return code of 
X'OO 1 is put in GPR15, and control returns 
to the caller. 

If no entry is found in the device table 
for the device, then a return code of X , 04 l 
is put in GPR15, and control returns to the 
caller. 



IJZAOLTPj ££BOLTEP Char t D P 



METHOD: Upon entry, the abnormal 
termination flag is set, EXIO cleanup is 
performed via the Scheduler and the OLT 
cleanup routine is performed if one is 
available. If RETAIN/370 is active, the 
REI Terminate module is entered to 
terminate the RETAIN/370 Interrace. Tape 
labels are restored and TP lines disabled 
if necessary by the Restore Labels module. 
The OLTEP Active flag is then reset and 
exit is taken to the DOS supervisor. 

If this module is entered because of an 
error in cleanup, the OLTEP Active flag is 
reset, and exit is taken to the supervisor. 
All other cleanup procedures are bypassed. 



PRE-RELEASE 25 SUPPORT MODULES 



OBJECTIVE: Indicate that OLTEP is active. 



ENTRY POINT : I JZAOLTP. 



EXITS: Return to caller. 



The OLTEP/OLT support modules that follow 
were used by OLTEP prior to release 25. 
They are retained as part of OLTEP to 
support previously written OLTs. 



EXTERNAL ROUTINE: 



SVC11. 



INPUT : Not applicable. 
OUTPUT : Not applicable. 



METHOD: 



This module is a $$B transient 



called by IJZAOLTP to set a bit in the 
supervisor indicating that OLTEP is active. 
This bit is examined by the supervisor when 
an SVC46 is issued, to ensure that it is 
OLTEP that issued the SVC4 6. 



IJZATOLT ($$BTOLTP): Terminate 

OLTEP Chart DE 



IJZACEOMj_ CE_Communication Chart EA 

OBJECTIVE : Provide two-way communications 
between OLTEP and the operator. 

ENTRY POINT : IJZACEOM. 

EXIT: Return to calling module. 

EXTERNAL__ROUTINE: LOAD (SVC4). 

INPUT: Not applicable. 

OUTPUT: Not applicable. 



O BJECTIVE : Perform cleanup functions for 
OLTEP if an abnormal termination occurs. 

ENTRY POINT : EPBTOLTP. 

EXIT : To the supervisor ($$BEOJ3>. 

EXTERNAL RO UT INES : 

1. REI Terminate (IJZAD078) to deactivate 
the RETAIN/370 Interface, 

2. Restore Labels (IJZAD057) to restore 
tape labels and disable TP lines. 

3. The OLT cleanup routine if available, 

4. The Scheduler (IJZADO00). 



METHOD : When the macro is issued, a 
pointer indicates the message to be issued, 
the length of the message, and an area 
where the reply can be placed. 

When the CECOM macro is issued, a 
message asking the operator some specific 
question is printed on the console. The 
operator then replies, thus establishing 
the two-way communication. 

The CECOM macro is used in the following 
way : 

CECOM FSTERR, FERRC, INBUFR, FERIN 

FSTERR. Specifies the message to be 
put out on the console. 
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FERRC. Specifies the length of the 
message to be put out on the console. 

INBUFR. Specifies the area where the 
operator' s response will be located. 

FERIN. Specifies the length of the 
operator's reply. 

If no IBM 1052 is available, the 
following message is issued: 



E0261 TEST XXXXX CANCELED 
UNAVAILABLE FOR INPUT 



1052 



Control returns to the scheduler routine in 
the control module to load the next section 
(if any), to loop the test (if specified), 
or to terminate OLTEP. 



IJZACKTP: Check Teleprocessing Chart EB 



or not. If it is active, a message is 
issued indicating the test cannot be run 
and return is to OLTEP Control. If there 
is a TP device and it is not active, a 
message is issued asking if TP will be 
active. A YES response causes a return to 
OLTEP control. A NO reply allows the test 
to run. 

The timing module, I JZ ATI ME ($$BZTIME) 
is called into the B-transient area. Upon 
return from the timing module, the program 
checks determine if the timer is working. 
If it is not working, a message is issued 
and return is to OLTEP control. If the 
timer is working, the timing results are 
stored, and return is to the IJZAEXIO 
module for return to the unit test. 

This module uses a special set of 
switches, labeled FLGS. If it contains 
X'01', it indicates the device is a 
teleprocessing device. A X 1 02' indicates 
the timer is not working. 



OBJECTIVE : Perform checks to determine if 
I time-dependent devices are active. 

ENTRY POINT: IJZACKTP. 

EXIT : Return to EXIO (IJZAEXIO) after 
performing the timing test checks. 

EXTERNAL ROUTINES : 

1. Output writer (IJZAOPUT) to print 
messages. 

2. CECOM (IJZACEOM) for two-way 
communicati on. 

3. Time test (IJZATIME) to perform the 
timing test ($$BZTIME). 

4. LOAD. 

I NPUT : Not applicable. 

OUTP UT : Messages: E136I, E199D, E317I, 
04E135D, 04E133I. 



I JZACMNT : 



Print Comment Chart EC 



OBJECTIVE : Build the comments message. 

ENTRY POINT : I JZACMNT. 

EXIT: Return to caller via GPR14. 

EXTERNAL ROUT INES: None. 

INPUT : Data from the print module 
IJZADPRT. 

OUTPUT : Data formatted for the message. 

METHOD: Move the message to be printed 
from the caller's area to the OLTEP buffer 



IJZACOMPj^ Compare Chart_ED 

METHOD : The program checks to determine if 

the device to perform the test is on 

channel 0. If it is, a message is issued OBJECTIVE: Check received data against 

indicating the test cannot be run on the expected data. 

multiplex channel, and return is to OLTEP 

control for the next DEV/TEST/OPT/ entry, INT5X_EQINT : IJZACOMP. 

if a 1052 is available. If it is not 

available, OLTEP is terminated. EXIT: Return to OLT. 

If the device is not on channel 0, the INPUT: Address of check field and error 

program checks to determine if a return code. 
teleprocessing (TP) device is present in 

the system and, if so, whether it is active OUTPUT : Not applicable. 
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METHOD : This module sets up a pointer to 
the checkf ield that is used for the compare 
function. The checkf ield (Figure 16) 
contains the information to compare. The 
first test in the compare module determines 
whether or not the TECB is relevant. If it 
is, some portion of the TECB information 
must be checked. The entire TECB is 
checked to determine if the following are 
relevant : 

• CC. 

• CSW Address. 

• Device Status. 

• Channel Status, 

• Residual Count. 

• Sense Data. 

All this information is initially 
entered in the TECB from the last seven 
bytes of the CSW and the last eight bytes 
of the Channel Command Block (CCB). 

Once the program determines which 
portions of information are relevant, it 
compares them with the expected information 
found in the checkf ield (Figure 16). In 
each case, if the received data does not 
compare favorably with the expected data, 
an error switch is set. 

After these comparisons are completed or 
if the TECB is not relevant, the program 
checks the data to determine whether or not 
it is relevant. The relevant data is then 
compared to the expected data, and a switch 
is set if the comparison in unfavorable. 

Finally, a test is made to determine if 
any error switches have been set. If any 
have been set, the error exit to the unit 
test is used. Otherwise, the return is 
normal. 



METHOD : The convert macro works in the 
following way: 



CONVERT HE, SCT+14, ENDMSG+9, 2 



HE. Specifies convert from hex to 
EBCDIC. 



SCT+14. Specifies the address of the 
data to be converted. 



ENDMSG+9. Specifies the address when 
the converted data is to be stored. 



2. Specifies the number of bytes to 
convert. 



A pointer is initiated to point to the 
following table: 



r t 1 

I Byte | | 

|. + 4 

| I Address of data to be converted | 

i. + ^ 

| 4 | Address of data after conversion | 
|. + - -l 

| 8 | Address of next word | 

K + ^ 

| 12 | Unused | 

I I I 

| | *Byte Count | 

I I I 

| | = convert from hexadecimal to | 
| | EBCDIC | 

I I I 

| | . 1 = convert from EBCDIC to | 
| | hexadecimal | 

L J. . J 



IJZACONV: Convert Chart EE 



If the characters to convert are EBCDIC, 
they are compared to a translate table of 
hexadecimal characters to make the 
conversion (vice versa if the conversion is 
from hexadecimal to EBCDIC). 



OBJECTIVE : Convert data from hexadecimal 
to EBCDIC and vice versa. 

ENTRY POIN T: IJZACONV. 

EXIT : Return to calling module. 

INPUT: Pointer to parameter list. 

OUTPUT : Converted data. 



If no match is found in an EBCDIC to 
hexadecimal conversion, an error code is 
inserted in general register 15, and the 
program returns to the entry point. No 
error indicator is used for hexadecimal to 
EBCDIC conversion because every hexadecimal 
character has an EBCDIC equivalent. 

If the conversion is completed, the 
characters are placed in an output area, 
and control returns to the calling routine. 
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IBM Confidential 



IJZADPRT: Print Chart EF 



OBJECTIVE: Build the print line (s) issued 
by the Output Writer. 



ENTRY P OINT: IJZADPRT. 
EXITS: 

1. Return to OLT normally. 

2. To OLTEP control if an external 
interrupt is encountered. 



EXTERNAL R OUT INES : 

1. IJZAHEAD to build the heading. 
Chart DK. 

2. IJZARSLT to build the results. 
Chart DP. 

3. IJZACMNT to build the comments. 
Chart DC. 

4. Output Writer (IJZADO70) to print. 
| 5. Convert (IJZACONV) . 

INPUT : Pointer to parameter list. 
OUTP UT: Messages: E129I, E157I, 



METHOD : 



The information that is to be 



printed is acquired from the previously 
built checkfield (Figure 16) and from a 
parameter list pointed to by general 
register 1 (Figure 17). The control bits 
in the table are checked to determine which 
subroutine (print heading, print results , 
or print comments) should be entered. 

Information to print is assembled into 
lines of print on the basis of the control 
flags in the print parameter table and the 
flag bytes in the checkfield. The 
information acquired from the parameter 
table indicates the type of information to 
print. The information acquired from the 
checkfield indicates the portions of the 
checkfield to print. 

The three modules utilized by the print 
module are: 

• Print Heading (IJZAHEAD) 

• Print Results (IJZARSLT) 

• Print Comments (IJZACMNT) 



Each of these modules builds line(s) of 
print with the appropriate prefixes, and 
passes control back to the print module to 
be put out. 

After the specified data is put out, 
control returns to the unit test, unless 
the interrupt switch is set or if the 
operator wishes to be notified on the first 
error. If either of these two cases occur, 
control returns to OLTEP control. 



IJZAEXlOi QLTAM_EXI0 Chart_EJ 

OBJECTIVE: Initiate an I/O operation. 

ENTRY J?QINT : I JZAEXIO 

EXITS: 

1. Return to OLT normally. 

2. To communications internal (IJZAD052) 
if an external interrupt is 
encountered and it is not a GAP test. 

EXTERNAL ROUTINES : 

1. CECOM (IJZAD037). 

2. Check teleprocessing (IJZACKTP). 

3. $$BZTIME (IJZATIME). 

4. EXCP. 

INPUT: Pointer to parameter list. 
OUTPUT: Message E313I. 



METHOD: 



The I/O operation is initiated 



with an EXCP after the program completes a 
series of instructions: 

1. Clears the Test Event Control Block 
(Figure 15). 

2. Sets up the CCB, or the TPCCB if the 
teleprocessing switch is on. 

3. Executes the CCW, or TPCCW. 

4. Loads the IJAZCKTP module if there is 
a timing request. 

5. Loads the IJZATIME ($$BZTIME) module 
if there is a gap test request. 

After OLTAM has completed these steps, 
the EXCP is executed and control returns to 
the unit test. 
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IJZAHEAD: Print Heading Chart EK 



OBJECTIVE : Build the heading containing 
the IC, CCW, and I/O addresses. 

ENTRY POINT : IJZAHEAD. 

EXIT : Return to caller via GPR14. 

EXTERNAL ROUTINE : CONVERT (IJZACONV) . 

INPU T: Data from the print module 
IJZADPRT. 

O UTPUT : Data formatted for the message. 

METHOD : Set up the heading print from 
information passed from the unit tests TECB 
for I/O error messages. 



Third byte. Points to the first 
programmer class unit in the LUB F2 
area. 

Fourth byte. Points to the first 
programmer class unit in the LUB Fl 
area. 

After the JIB associated with the 
logical unit to test is located, the upper 
and lower cylinders of the extent (also, 
cell numbers in the case of the 2321) are 
queued in the JIB chain. 

When an extent must be put into a new 
JIB, this routine gets the JIB from the 
available JIB chain, puts in the extents, 
and inserts the new JIB in the chain. The 
extent is now considered file protected and 
available for testing by the unit test. To 
release the system, the SVC 22 with a mask 
of X 1 FF' : is reissued. 

Once the limits are obtained and stored, 
control returns to the device update 
routine by issuing an SVC 11. 



IJZAOPEN: Pseudo Open, $$BS O PEN Chart EL 



OBJECTIVE : 

ENTRY POINT : IJZAOPEN. 

EXIT : Return to device update information 
routine via SVC11. 

EXTE RNAL ROU TINE : SVCll, SVC22. 

INPUT : Device type and symbolic unit 
address, from the CECOM routine. 



IJZAOPUTi Output Chart_EM 



OBJECTIVE: Provide one-way communication 
from the program to the operator. 



ENTRY POINT: IJZAOPUT. 



OUTPUT : Not applicable 



EXIT: Return to caller. 



Upon entry, this module seizes the EXTERNAL_ROUTI NE : CECOM (IJZAD037), 



METH OD: 

system via an SVC 22 with a mask of X'FF'. 

The addresses of the tables needed to 
accomplish the pseudo open are obtained. 
These addresses are located at the: 

• First Available Pointer (FAVP). A one 
byte pointer to the next available JIB. 

• Address of the Job Information Block 
(JIB) table. 

• First in Class (FICL). A four-byte 
pointer : 

First byte. Points to first Logical 
Unit Block (LUB) table entry. 

Second byte. Points to first 
programmer class unit in the LUB 
table BG area. 



INPUT : Pointer to parameter list. 



OUTPUT: Pointer to output data. 



METHOD: 



When the output writer module is 



entered, a pointer is initiated to point to 
the following table: 

r t t n 

| Address of data | Forms | Byte | 
| to be printed j control | count of | 
| j character | message | 
l j. j. J 

CECOM is then called to issue the 
message. When CECOM is finished, control 
returns to the caller. 
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IJZARATA: Random Data Generator Chart EN 



IJZATIME: Timing Tests Chart £Q 



OBJECTIVE : Generate the indicated number 
of random numbers, and store them in the 
requesting OLT. 



ENTRY POINT : I J Z ARATA. 

EXIT : Return to calling OLT, 

INPU T: Pointer to parameter list. 
OUTPUT: Random data in caller's buffer. 



METHOD : This module uses the first two 
bytes in the SCT as the starting random 
number. Eight bytes are moved to a work 
area where random bits are generated and 
stored in the requesting OLT. 

As each doubleword of random data is 
generated, the pointer is incremented by 
eight so that newly generated data does not 
overlay previous data. This process 
continues until the last eight bytes are 
reached. When less than eight bytes remain 
generation terminates and control returns 
to the OLT. 



IJZARSLT: Print Result Chart EP 

OBJECTIVE : Build the results message. 
ENTRY P OINT: IJZARSLT. 
EXIT : Return to caller via GPR14. 
EXTERNAL RO UT INES : 

1. Convert (IJZACONV). 

2. Output (IJZAOPUT). 

3. Output Writer (IJZADO70). 

INPU T: Data from the print module 
IJZADPRT. 

OUTPUT : Data formatted for the message. 



OBJECTIVE: Performs timing calculations. 

ENTRY POINT : IJZATIME 

EXITS: 

1. Check teleprocessing (IJZACKTP) if a 
timing test was requested. 

2. EXIO (IJZAEXIO) if a GAP test was 
requested. 

EXTERNAL__ROUTINES: EXCP, SVCll, SVC22. 

INPUT: Pointer to CCB to be executed. 

OUTPUT : Not applicable 



METHOD: This module is entered from the 
IJZACKTP module when the timer test is 
requested, or from the IJZAEXIO module when 
the gap test is requested. 

TIME_TEST: An EXCP is issued, a check is 
made to determine if the channel has 
started, and when it has, the system is 
seized by issuing an SVC 22. The timer 
(clock) setting is stored before and after 
a countdown and the difference is kept in a 
register. The channel is unlocked by 
changing a TIC to a NOP and the timer is 
again checked without channel interference. 
The system control is released by reissuing 
the SVC 22, and the two time results are 
passed back to the unit test. 

GAP TEST : An EXCP is issued, and the 
system is seized by issuing an SVC 22 when 
the channel has started. The channel is 
unlocked (TIC to NOP), a one-second delay 
is used to stabilize the system, the 
go-down loop is performed, the channel 
unlocked again, and countdown is done until 
the sense CCW has been executed. When 
SENSE has been executed, the system is 
released by reissuing the SVC 22, and the 
results of the final countdown are passed 
back to the unit test. 



METHOD: 



Set up and print the received and 



expected data, condition code f CSW, and 
sense information that is passed by the 
unit tests. 



IJZAWAIT: OLTAM WAITIO Chart ER 

OBJECTIVE: Perform a wait operation. 
ENTRY POINT: IJZAWAIT. 
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EXITS: 



o CCW address. 



1. Return to OLT normally. 

2. Communications interval (IJZADOb2) if 
an external interrupt is encountered, 

INPUT: Pointer to TECB. 



» CSW status. 



» CCW residual count. 



OUTPUT : Unit test TECB posted. 



• Sense information (if the CSW contained 
a unit check). 



METHOD: The wait is performed by using the 
same CCB used by the EXIO, and issuing a 
SVC 7. 

Once this has been done, the following 
are posted in the TECB (Figure 15): 



The TECB must be aligned on a fullword 
boundary and must be exactly five words in 
length. 

After these operations have oeen 
completed, control returns to the unit 
test. 
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FLOWCHARTS 



EXPLANATION OF FLOWCHART SYMBOLS 



FLOWCHART ABBREVIATIONS 



*****Al ********** 

* * 

* * 

* PROCESS *B2 * 



*****q;1 ********** 

♦LA.BE LI BW* 
*_*_*_*_*_*_+_*_* 

* * 

* SUBROUTINE * 

* * 
***************** 



**£)!******* 

* * 

* * 

* PREPARATION * 

* * 

* * 
*********** 



*****E1 ********** 



** PREDEFINED ** 
** PROCESS ** 



***************** 



***F1 *********** 

* * 

INPUT/OUTPUT 
* * 

**************** 



A GROUP OF PROGRAM INSTRUCTIONS 
THAT PERFORM A PROCESSING 
FUNCTION OF THE PROGRAM. THE 
LABEL, IF ANY, IS SHOWN ABOVE 
THE BLOCK. 



*B2 
IF ANY ADDITIONAL EXPLANATION 
IS REQUIRED, ITS LOCATION ON 
THE CHART IS IDENTIFIED BY AN 
ASTERISK AND BLOCK ID. 



DESCRIPTION OR TITLE OF A ROUTINE 
THAT IS DETAILED ON ANOTHER 
FLOWCHART. THE STARTING LABEL OF 
THE ROUTINE AND THE FLOWCHART ID 
APPEAR ABOVE THE STRIPE. 



AN INSTRUCTION, OR GROUP OF 
INSTRUCTIONS. THAT CHANGES 
PORTIONS OF A ROUTINE OR 
INITIALIZES A ROUTINE FOR 
GIVEN CONDITIONS. 



A GROUP OF OPERATIONS NOT 
DETAILED IN THE FLOWCHARTS 
IN THIS MANUAL, SUCH AS 
USER'S ROUTINES. 



ANY FUNCTION OF AN INPUT/OUTPUT 
DEVICE OR PROGRAM, USUALLY 
BRANCHING TO AN I/O ROUTINE TO 
PERFORM THE FUNCTION STATED IN 
THE BLOCK. 



ADDR 
AVAIL 


ADDRESS 
AVAILABLE 


BG 


BACKGROUND 


CAT 

cc 

CDS 

CHAN 

CHAR 

COMM 
COND 


CATASTROPHIC 

CONDITION CODE 

CONFIGURATION DATA SET 

CHANNEL 

CHARACTER 

COMMUNICATION 

CONDITION 


DE 

DESC 

DEV 

DISP 

DP 


DEVICE END 
DESCRIPTOR 
DEVICE 

DISPLACEMENT 
DATA PROTECTION 


EQ 

ERR 

EXT 


EQUAL 
ERROR 
EXTERNAL 


FLD 
FPM 


FIELD 

FILE PROTECT MODE 


GT 


GREATER THAN 


ID 

INFO 
I NIT 

INT 


IDENTIFICATION 
INFORMATION 
INITIALIZE 
INTERRUPT 


LT 
LTH 


LESS THAN 
LENGTH 


MAX 
MCT 
MOD 
MSG 


MAXIMUM 

MODULE CONTROL TABLE 

MODULE 

MESSAGE 


OP 

OPT 


OPERATION 
OPTION 


PERM 

PRI 

PTR 


PERMANENT 

PRIMARY 

POINTER 


RCVD 
REG 
RE I 


RECEIVED 
REGISTER 
RETAIN/370 INTERFACE 


REQ 

RTN 


REQUESTED 
ROUTINE 


SCT 
SEC 
SW 


SECTION CON1ROL TABLE 

SECONDARY 

SWITCH 


SYM 
SYS 


SYMBOLIC 
SYSTEM 


TECB 
TERM 
TP 
TRANS 


TEST EVENT CONTROL BLOCK 
TERMINATE 
TELEPROCESSING 
TRANSIENT 


VOL 


VOLUME 


WRT 


WRITE 


XPTD 


EXPECTED 



Gl *. 
. * * 

DECISION 



POINTS WHERE THE PROGRAM 
BRANCHES TO ALTERNATE PROCESSING, 
BASED UPON VARIABLE CONDITIONS 
SUCH AS PROGRAM SWITCH SETTINGS 
AND TEST RESULTS. 



**** 

* * 

* Jl * 

* * 
**** 



ON- PAGE CONNECTOR. AN ENTRY 
FROM, OR AN EXIT TO, ANOTHER 
FUNCTION ON THE SAME FLOWCHART. 
THE NUMBER IN THE CONNECTOR 
IDENTIFIES THE CORRESPONDING 
ENTRY OR EXIT ON THE CHART. 



****J1* ******** 

* * 

* TERMINAL * 

* * 
*************** 



THE BEGINNING, END, OR POINT OF 
INTERRUPTION IN A PROGRAM. 



OFF-PAGE CONNECTOR. AN ENTRY FROM, 
OR AN EXIT TO. A GIVEN POINT ON 
ANOTHER FLOWCHART. THE CHARACTERS 
IN THE CONNECTOR IDENTIFY THE 
CHART AND BLOCK. FOR MULTIPLE ENTRIES 
AND EXITS, AN ASTERISK APPEARS IN 
THE CONNECTOR AND THE CHARACTERS 
ARE LISTED NEARBY. 
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Chart 00, General 



Load OLTEP 
Program 



Initializer (IJZADOLT, AA) 

Loads transient manager 01, (AB).OLTEP nucleus, common 
area, determines I/O. Issue OLTS RUNNING message. 



Communication Interval (IJZADQ52, AE) 

Set up for communication with operator. Issue message 
BG E105D ENTER DEV/TEST/OPT. If the reply is CANCEL, 
load phase IJZAD057 to restore labels. If the reply is 
DUMP, a PDUMP macro is used. 



Device Decode (I JZADQ31 , AG) 
Determine device to be tested. 



Test Decode (IJZADQ32, AJ) 
Determines tests to be run. 



Option Decode (IJZADQ33, AM) 
Determines options to be used . 



Scheduler (IJZADOOO, AN) 

Loads the on- line tests and returns control to the calling 
module. 



EXTERNAL ROUTINES USED: 

By the Initializer: 

Output Writer (70), and GETCONF (16). 
The Transient Manager (01) will reside in 
the OLTEP nucleus section and determines 
if a transient is resident in core or needs 
to be loaded. COMREG, STXIT. 

By the Communication Interval: 

The PROMPT phases (71, 72, 73) assist 
the operator in replying to the DEV/ 
TEST/OPT message,and CECOM (37), and 
DECODE Routines (31, 32, 33). 



By Device Decode: 

Get CONFG (16), output writer (70), 
convert (41), and CECOM (37). 



By Test Decode and Option Decode 

Output Writer (70), and CECOM (37). 
Option decode also uses convert (41) . 



By the Scheduler: 

Data Protect (56), Convert (41), 
CECOM (37). 
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Chart 01. Main Flow 



c 



IJZADOLT 



D 



(Z> 



IJZADOLT AA 



Initializer 
OLTS Running 



IJZAD052 AE 



Communication 
Interval 




NO 



IJZADO01 AC 



Transient Manager 
(resident) 



IJZAD033 AN 



Message Options 
are 





IJZADOXX 


.YES > 


XX=71 for dev. CN 

72 for test CP 

73 for opt. CQ 








IJZAD052 AE 


YES 


Dump Background 
Partition 





IJZAD057 AG 



Restore Labels 



UZAD076 CR 



REI Initializ 





UZAD078 CT 


YES 


REI Terminate 





IJZAD037 BQ 



Enter 

DEV/TE ST/OPT 





UZAD056 AS 



Data Protect 
Routines 



/Terminate OLTEP J 





IJZAD031 AH 



Device Decode 



IJZAD032 AK 



Test Decode 



IJZAD033 AN 



Option Decode 



UZADOOO AP 



Scheduler 



OLT 



UZADOOO AP 



Scheduler Return 




Charts 5b 



Chart 02. Standard Linkage 



Save Caller's 
Registers 15 
through 12 



All OLTEP phases use 
this standard linkage. 



Load Base 
Register (15) 



Load Address of 
OLTEP Common 
Area 



Store Caller's Save 
Area Address 



Store This Module's 
Save Area Address 
into Caller's Save 
Area 



Load This Module's 
Save Address in 
Save Register 15 



NOTE: The assembly listing of each transient module 
01 through LT shows a dummy section before 
the prolog . This is an overlay of the OLTEP 
resident common area that is used to locate 
tables, constants, and other data needed by the 
transient module . 
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Chart AA. 



IJZADOLT: 



Initializer 1 



****A1********* 

* 
IJZADOLT * 



AEZADOLT V 

***** 31 ********** 

* SET FLAG IN * 
♦SECTION CONTROL* 

* TABLE TO * 

* IDENTIFY DOS * 

* OLTEP * 
***************** 



*****d********** 

* * 

♦SET FLAG IN SCT* 
*TO SHOW QUIESCE* 
♦MODE AVAILABLE * 



*****I3l ********** 

* ISSUE COMRG * 
♦SYSTEM MACRO TO* 
♦GET ADDRESS OF * 
♦BACKGROUND COMM* 

* REGION * 
***************** 



*****Q2 ********** 

* * 

* LOAD IJZAD099 *<- 

* * 

* * 
***************** 



**** 

* * 

* A3 * 

* * 
**** 



* PRINT E10 2I 
'OLTS RUNNING' 
WITH EXCP * 

************** 



L990GLST 

*****B3 ********** 

* STORE ADDRESS * 
♦OF HIGHEST BYTE* 
♦OF PARTITION IN* 

* $ END PART WORD * 

* IN COMMON * 
***************** 



*****C3 ********** 

* GET SIZE OF * 
♦PARTITION FROM * 
♦COMMUNICATIONS * 

* REGION * 

* * 
***************** 



-+. SIZE < 14K 



***Dt4*********** 
PRINT BG 
+ E232I OLTEP ♦ 
-> CANCELLED BG 
♦ PARTITION ♦ 
LESS THAN 14 
**************** 



*****£!********** 

♦ PUT * 

* COMMUNICATION * 
♦REGION ADDRESS + 
♦IN SAVE WORD IN* 

COMMON AREA 



*********** 



***** 



****E2********* 

* * 

* IJZAD099 * 

* * 
*************** 



1052 
AVAILABLE 



V 
*****F1 ********** 

* PLACE ADDR OF * 
♦END OF SUPVR + * 

* 14K (OLTEP * 
♦SIZE) IN WD IN * 

COMMON 



******** 



******** 



*****P5 ********** 



***************** 



♦.SYSLOG A 1052. 



*****Q1J********** 



* ISSUE EOJ TO 

* CANCEL JOB 



***************** 



*****H1 ********** 

* * 

* SET CONSOLE ♦ 

* SWITCH IN * 

* COMMON AREA * 

* * 
***************** 



V 
****H4 ********* 

* * 

* END * 

* * 
*************** 



*****J2* ********* 

* * 

* SET SYSLST = * 
->* SYSLOG SWITCH * 

♦IN OLTEP COMMON* 

* * 
***************** 



**** 

* * 

♦ A3 ♦ 



**** 

* * 

* A3 ♦ 

* * 
**** 
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Chart AB. 



IJZAD099: 



Initializer 2 



****A1********* 

* * 

* IJZAD099 * 

* * 
*************** 



I990LTSZ 

*****£!********** 

* * 
♦SUBTRACT OLTEP * 
♦SIZE TO GET OLT* 
♦PARTITION SIZE ♦ 

* * 
***************** 



*****C1 ********** 

♦ PUT OLT ♦ 
♦PARTITION SIZE ♦ 

♦ IN SECTION ♦ 

♦ CONTROL TABLE ♦ 

♦ * 
***************** 



NO . ♦ STXIT AB 

♦. FACILITY 

+ . AVAILABLE. 



** B 3******* 
♦SET SWITCH ♦ 

♦ IN COMMON TO ♦ 

♦ SHOW STXIT AB ♦ 

♦ AVAILABLE ♦ 
* * 

*********** 



*****C3 ********** 

♦ ISSUE STXIT ♦ 

♦ SYSTEM MACRO ♦ 

♦ FOR ABNORMAL ♦ 

♦ TERMINATION ♦ 
+ HANDLING ♦ 
***************** 



STXIT OC ♦. 
FACILITY 
. AVAILABLE. ♦ 



1NU 

n 

**** 

* * 

* A3 ♦ 

* * 
**** 



I99CONFG V 

*****D3 ********** 

♦IJZAD016 BA* 
*_*_*_*_*_*_*_*-* 

♦ DO GET CONFG ♦ 

♦ FOR CPU CDS ♦ 

♦ INFO ♦ 
***************** 



*****£! ********** 

* SET SWITCH IN ♦ 
♦COMMON TO SHOW ♦ 

* STXIT OC * 
+ AVAILABLE ♦ 

* * 
***************** 



*****p^********** 

♦ ISSUE STXIT * 
+ SYSTEM MACRO ♦ 
+ FOR OPERATOR ♦ 

♦ COMMUNICATION ♦ 

♦ HANDLING ♦ 
***************** 

**** 



*****P3 ********** 

♦ * 

♦ PUT OUT MSG ♦ 

♦ E2U0I CPU CDS ♦ 

♦ NOT AVAILABLE ♦ 

♦ * 
***************** 



*****G3********** 



***************** 



I990K 

*****H3********** 

♦ * 

♦ MOVE DEFAULT ♦ 

♦ OPTIONS INTO ♦ 

♦ SCT ♦ 

♦ * 
***************** 

**** 

* * 
->♦ B4 ♦ 

* * 

**** 



n 



**** 



*****34* ********* 

♦ GO TO B ♦ 

♦ TRANSIENT ♦ 
♦$$BOLTEP TO SET+ 

♦ OLTEP ACTIVE ♦ 
♦BIT IN COMM REG+ 
***************** 



*****£ tj********** 

♦ISSUE SVC 4 6 TO* 

♦ STORE ADDR OF ♦ 

♦ EXTERNAL INT ♦ 

♦ RFT HANDLE IN ♦ 

♦ SUPERVISOR ♦ 
***************** 



TIMER ♦. NO 
AVAILABLE . ♦ 



*****E4 ********** 

* * 

* * 

* ISSUE GETIME ♦ 

* * 

* * 
***************** 



**F4******* 
♦SET SWITCH + 
♦IN COMMON TO 
+ SHOW TIMER 
♦ AVAILABLE 
* * 

*********** 



* F 5 *__ 
****** J 



***P5*********** 
PRINT CARD 
♦ INPUT ON ♦ 
PRINTER 5 1052 
♦ IF AVAILABLE + 

**************** 



**G5******* 

* * 

♦ SET CARD ♦ 
♦INPUT FLAG FOR ♦ 

♦ IJZAD052 ♦ 

* * 
*********** 



19 9 READ 

***j4**** ******* 
READ 1 CD FR 
+ SYSIPT DEV ♦ 
INTO OLTEP 
♦ INPUT BUFFER + 
IN COMMON ARE 
**************** 



**** 

* * 
•>♦ F5 ♦ 

* * 
**** 



****J5********* 

* * 

* IJZAD052 * 

* * 
*************** 
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Chart AC. IJZADO01: Transient Manager (Section 1 of 2) 



**** 
* . * 

* A4 * 



**** A1 ********* 

* * 

* EPZADO01 * 

* * 
*************** 

**** 
*AD * 

* CI *-> 

**** i 
B01MODKQ . : 



YES . *REQUEST FOR*. 
*. SCHEDULER . 



8 CHAR 
MODULE ID 



***ci********** 



CONSTRUCT 
MODULE ID 



************ 



YES . +OUTSTANDING*. 
*. EXT INT . * 



***** 
*AD * 
* B2* 



G01GETID V 

*****Dl ********** 



♦LOAD MODULE ID 



***************** 



D2 

* 

FIRST ERROR 



B01DVTST 

*****E>3********* 



*. FIRST ERROR .* 1 

*. .* V 



**** 

* * 

* BU * 

* * 
**** 



***************** 



**** 
*AD * 
L_>* B4 



* CALLED BY *. YES 


OLTEP . * -, 


*. . * 


*. .* 


*. . * V 


* NO **** 




* 




* A4 




* 




**** 



**E2******* 



*********** 



. * EXT OR *. NO 

REMOTE . * 

*. INTERRUPT. * 



* A4 ♦ 

* * 
**** 



G01ATTN 

*****G1**** ****** 

* * 
♦SAVE PARAMETER * 

* LIST AND SAVE ♦ 

* AREA POINTERS * 

* * 
***************** 



V 
**Hl******* 

* • SET ♦ 

* OUTSTANDING * 

♦ EXTERNAL ♦ 

♦ • INTERRUPT * 
* FLAG * 

*********** 



**J1******* 



*********** 



*****K1********** 

♦ GET COMM * 

♦ INTERVAL MOD * 

♦ NAME FOR SCT * 

♦ SEARCH ♦ 

♦ * 
***************** 



*****U3* ********* 

♦ RESET ♦ 

♦ OUTSTANDING * 

♦ REQUEST FLAG * 

♦ RESTORE OLT ♦ 

♦ SAVE POINTER * 
***************** 



**** 
G01LOAD 



* GU ♦ 

* * 
**** 



B01ISSUP 

*****D4 ********** 



***************** 



B01WIPER 

*****F4* ********* 

* * 

* UPDATE THE ♦ 
♦MODULE CONTROL * 

* TABLE ♦ 

* * 
***************** 



♦OUTSTANDING*. 
REQUEST . * 



G0REG10 

***** H 4* ********* 



***************** 



LOAD ONLY ♦. YES 
REQUESTED . * 



****K4********* 
♦EXIT TO CALLED * 

* MODULE * 

* * 
*************** 



*********** 



♦OUTSTANDING*. 
REQUEST 



♦RESTORE CALLERS* 

♦ SAVE AREA ♦ 

♦ POINTER * 

♦ * 
***************** 



*****jj5* + ******** 

* RESET * 

* OUTSTANDING * 

* REQUEST FLAG * 

* RESTORE OLT * 

* SAVE POINTER * 
***************** 



V 
**** K 5* ******** 

* * 

* RETURN * 

* ♦ 
*************** 
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Chart AD. IJZADOOl: Transient manager (Section 2 of 2) 



**** 

♦ AC 

B3 



* B3 * — -I 



* D3 * — •, 

* * 1 
**** v 



**B2******* 

* RESET * 
OUTSTANDING 

EXTERNAL 
INTERRUPT 

* FLAG * 
*********** 



**** 




♦AC ♦ 




* E2 ♦— 


"i 


* * 
**** 


B01DVTCK 


. ♦. 


C3 


*. 


. * 




YES . * DEV 


TEST 


*. CHANGE 



**C4+****** 

* * 

♦ SET CAT. ♦ 
♦ERROR PROCESSED^ 

♦ FLAG * 

* * 
*********** 



E01NOCAT 

**C5++++*+* 



*********** 



**D1******* 

♦ SET ♦ 

♦ OUTSTANDING ♦ 
♦REQUEST FILLED ♦ 

♦ FLAG ♦ 

* * 
*********** 

1**** 
♦ AC ♦ 
->♦ Bl ♦ 



CLNUP . ♦. 


D2 *. 


. ♦ ♦. 


.♦ OLT HAVE ♦. NO 


♦ . CLEANUP .♦ n 


♦. .♦ 1 


♦ . .♦ I 


♦ . .* V 


♦ YES ***** 




♦AC ♦ 




♦ BU + 




* * 




* 


" 


**E2******* 


* * 


♦ SET OLT ♦ 


♦ ENTERED FOR ♦ 


♦CLEANUI 


3 FLAG ♦ 



B01SERVQ 

v 
****D4*+++***** 

* * 

* RETURN TO OLT ♦ 

* * 
*************** 



*********** 



*****F2 ********** 

* * 

♦ POINT TO ♦ 
♦SCHEDULER SAVE ♦ 

♦ AREA ♦ 

* * 
***************** 



****G2+++++++++ 

♦ CALL OLT FOR ♦ 

♦ CLEANUP ♦ 

♦ * 
*************** 
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Chart AE. IJZAD052: Communications Interval (Section 1 of 3) 



* * 

* IJZAD052 * 

********** 



+AF-D3, J3 
AE2-Bl.F2.G2 
**** 



REMOTE 
INTERRUPT 



**** 

*AF1* 

* J2 *-> 



**** 
L52REIT 

+****C2 ********** 
♦IJZAD07 8 * 
*_*_*_*_*_*_*_*_* 

* TERMINATE * 

* RETAIN/370 * 

* * 
***************** 



L520PTPR 

***** pi**** ****** 



***************** 



*****Q1 ********** 

♦ILJZAD033 * 



******** 



♦RESET 'OPTIONS * 
* MESSAGE' FLAG * 



************** 



* *. YES 
CARD EHTRY . * 



NO ***** 

*AF * 
* Al* 
* * 





YES . 


* 


1052 


*. 


NO 




! 


* 


AVAILABLE 

*. . * 
*. . * 


** 






**** 




* 




***** 


* 


* 








*AF1* 


* 


A3 * 








* EH* 


* 


* 








* * 



**** 

* * 

l~>* Bl * 



**** 

* * 

* A3 +---, 

* * | 
**** V 



*****£)3********** 



***************** 



L52CECOM V 

*****E3********** 

♦IJZAD037 * 

*-*-*-*-*-*-*-*-* 



***************** 



*****P3 ********** 



***************** 



**** ,* *. 

* * YES . * * 

* J3 *< *. REMOTE ENTRY 



*****H3 ********** 



♦RESET 'EXTERNAL^ 
♦INTERRUPT' FLAG + 



***************** 
**** 



+ J3 +-> 

* * 
**** 
L52R2000 . 
J3 



L52R2010 . ♦. 

A5 *. 
. ♦ ♦. 
NO . * 
r *. OLT ACTIVE 



**** 

* * 

* Bl ♦ 



YES 



.COMMUNICATION. * 
♦ . TIME .♦ 



**** 

* * 

* Bl ♦ 



L520PTD 

V 
****C5********* 

* * 
+ IJZAD033 ♦ 

* * 
*************** 



♦AF-H3 
AF1-J2 



♦ -> 



***** 

♦ AF1+ 

* Al* 



*****K3* ********* 

* * 

♦ RESET 'NOT ♦ 
♦PERTINENT' FLAG+ 



***************** 

1**** 
♦ ♦ 
->* A5 ♦ 
* * 
**** 



**** 

A52BADOP V 

*****K4* ********* 

♦IJZAD037 * 
*-*-*-*-*-*-*-*-* 

* ISSUE MSG BG ♦ 

* E199D ♦ 

* * 
***************** 

**** 

* * 
i~>* J3 ♦ 

* * 
**** 
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Chart AF. IJZA.D052: Communications Interval (Section 2 of 3) 



*AE * 
* Jl * — 
*J4 * 
**** 
LS2CARDN . 
Al 



**** 

* * 

* * J 
**** V 

L52CPRMT . *. 



PROMPT ALL 



***** 

*AF1* 

* Al* 

* * 



PROMPT *. NO 
REQUESTED . * 



L52R3000 

**** *B2 ********* * 

* * 

* RESET 'LOCAL * 
>* PRINT ONLY' * 

* FLAG * 



***************** 



. +LAST IMAGE *. NO 



CANCEL 
REQUEST 



*. FROM REMOTE . * -, *. REQUEST . * 

*. . * I *. . * 

*. . * *. . * 

*. . * V *. . * 



**** 

* * 

* A4 * 



*****£)!********** 

* * 

* RESET 'LOCAL * 

* PRINT ONLY' * 

* SWITCH * 

* * 
***************** 



*****£! ********** 

♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 



***************** 



**** 

*AE * 

->* A5 * 



.DUMP REQUEST 



E2 * 
'TALK' 



****C3********* 

* * 

* EOJ * 

* * 
*************** 



L52DUMPA 

*****£)3 ********** 

*SVC2 * 

*_*_*_*_*_*_*_*_* 

>* DUMP OLTS * 

* STORAGE * 

* * 
***************** 



I .... 

*AE * 
L_>* Bl * 



F2 *. 

. * *. 

$DYCOM ON 

" *. . ** 

*. . * 

YES 



**G2******* 



***** 
+ AF1* 
* Jl* 



L52NTLK 

*****P3 ********** 

♦IJZAD037 * 
. no *_*_*_*_*_*_*-*-* 
. * >* ISSUE MSG BG * 

* E166I * 

* * 
***************** 



**** 

*AE * 

->* A5 * 



r *. PROMPT DEVICE. * 



L52PDEV V 

*****C4*** ******* 
♦IJZAD071 * 
*_*_*_*_*_*_*_*-* 

* ISSUE DEV * 

* PROMPTING * 

* MESSAGE * 
***************** 



*. PROMPT ALL 



L52PIST V 

*****F4********** 

♦IJZAD072 * 
*_*_*_*_*_*_*_*_* 

* ISSUE TEST * 

* PROMPTING * 

* MESSAGE * 
***************** 



L52COPT 



*. PROMPT ALL 



*********** 

1**** 
*AE * 
_>* A5 * 



-♦.ANY PROMPTING. *<- 



*AE * 

* K4* 

* * 



* RESET 'LOCAL * 

* PRINT ONLY' *< 

* FLAG * 

* * 
***************** 

I**** 
*AE * 
->* Bl * 



L52POPT 

*****j4* ********* 

♦IJZAD073 * 
*_*_*_*_*_*_*_*_* 

* ISSUE OPTION * 

* PROMPTING * 

* MESSAGE * 
***************** 
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Chart .AF1. IJZAD052: Communications Interval (Section 3 of 3) 



*AF * 






* Al *— . 

* * \ 

* * * * V 














L5 2SLCNT . *. 




L52SVPTR 


Al *. 




*****A2 ****** 


. * *. 






. * *. 


YES 


* SAVE SLASH 


*. 3 SLASHES . 


* 


>* ADDRESSES 



***************** 



L52N3SL 

*****£!********** 

*IJZAD037 * 
*-*-*-*-*-*-*-*-* 
+ ISSUE MSG BG * 

* E106I * 

* * 
***************** 



*****£!********** 



***************** 



.INITIAL ENTRY. *- 



**** 
* * 
L_>* HU * 



.* DEV FIELD *. YES .* *. YES 

*. ENTERED .* >*.TEST ENTERED .* 



***** D 2 ********** 
♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

* ISSUE MSG BG * 

* E108I * 

* * 
***************** 



L52ERRTS V 

*****£)3********** 

*IJZAD037 * 
*_*_*_*_*_*_*_*_* 

* ISSUE MSG BG * 

* E121I * 

* * 
***************** 



-*. AVAILABLE .* n 

*. . * V 



**** 

* * 

* E4 * 

* * 
**** 



L52PROMP . *. 


F2 *. 


. * *. 


YES . * INPUT FROM *. 


*. REMOTE .* 


f *. .* 


J *. .* 


V *. .* 


***** * NO 


*AE * 




* Bl* 




* * 




* 




V 


*****q2*** ******* 


♦IJZAD037 * 


*_*_*_*_*_*_*_*_* 


* ISSUE MSG BG * 


* E161I * 


* * 


***************** 


1 **** 


*AE * 




->* Bl * 



*****F3********** 



***************** 



L52DDEC 

V 
****D4********* 

* * 

* IJZAD031 * 

* * 
*************** 



* Kl * — t 

* * I 
**** | 



L52N1052 

*****E4* ********* 

♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

>* ISSUE MSG BG * 

* E226I * 

* * 
***************** 



****F4********* 
* 
EOJ * 
* 

*************** 



L52COPTC 

****H5* ******** 

* * 
>* IJZAD033 * 

* * 
*************** 



* ji * — .. 

* * J 
**** v 

L52R4000 . *. 
Jl 

. ** 



L52EX76 

V 
****K1 ********* 

* * 

* IJZAD076 * 



J2 *. 
• * * 
. * 
->*. STOP REI 



* YES 
I **** 

*AE * 
L->* C2 » 



***** 

*AE * 
* K4* 



****j4********* 
* 
IJZAD032 * 
* 

*************** 
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Chart AG. IJZAD057: Restore Tape Labels 



**** 

* * 

* A3 * — t 

* * J 
**** v 



****A1********* 

* * 

* IJZAD057 * 

* * 
*************** 



*****Q1********** 

* * 

* SET 'LOCAL * 

* PRINT ONLY' * 

* FLAG * 

* * 
***************** 



*****C1 ********** 

* * 

* INITIALIZE * 

* DEVICE TABLE * 

* POINTER * 

* * 
***************** 

**** 



YES . ♦ IS SOSP ♦ . 
*. ACTIVE . * 



ASCII MODE 



A57EBCD 

*****Q(j* ********* 



♦SET UP TO WRITE* 
->*LABEL IN EBCDIC* 



***************** 



**** 

* * 

* C2 *-> 



**** 
A57UPDT 

*****C2* ********* 



***************** 



*****C3 ********** 



***************** 



Dl *. 
. * *. 

LAST ENTRY 



El *. 
. * * 
.* STANDARD 



A57RETRN 

*****T)2********** 



***************** 



A57NORML 

*** d3 *********** 



**************** 



**** 

* * 

* Dl * 

* * 
**** 



. *. 


A57TSTWR . *. 


E2 *. 


E3 ♦. 


.* LINE *. 


. ♦ ♦. 


. +CONNECTION *. YES 


.♦ WRITE ♦. YES 


♦ .BEEN INVOKED .* -. 


♦. SUCCESSFUL .* t 


*. .* 1 


*. . * I 


*. .* 1 


*. .* J 


*. .* V 


*. .* V 


* NO ♦♦♦♦ 


♦ NO ♦ *** 


**** 


* * 


**** 


* 


* * 


♦ G5 ♦ 


* * 


* Dl 


♦ F2 *-> 


* * 


♦ F3 ♦-> 


* 


* * 


**** 


* * 


**** 


**** 




**** 




57GOBCK 




A57ERMSG V 


V 


*****P3 ********** 


**** F 2********* 


♦IJZAD041 * 


* * 


*_*_*_*_*_*_*_*_* 


* RETURN ♦ 


♦CONVERT DEVICE ♦ 


* * 


♦ADDR TO EBCDIC * 


******** 


|c******* 


* 


* 



* D4 * 

* * 
**** 

A57CNVT 

*****£)1|** ******** 

♦IJZAD041 * 
*_*_*_*_*_*_*_*_* 

♦CONV SENSE AND * 
♦CSW INFORMATION* 

* TO EBCDIC ♦ 
***************** 



*****E4 ********** 
♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 

* ISSUE MESSAGE ♦ 

* BG E137I * 

* * 
***************** 



1052 *. NO 
AVAILABLE . * 



**** 

* * 

* Gl *-> 



**** 

A57SENSE 

*****G1* ********* 



* PERFORM SENSE * 



***************** 



***************** 



*****G3* ********* 

♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

* ISSUE MESSAGE * 

* BG E174I * 

* * 
***************** 



•n 



**** 

* 

* b5 *-~, 

**** 

*****£ 5********** 

* * 
♦SET POINTER TO * 

* DEVICE TABLE ♦ 

* * 

* * 
***************** 



*****£)5********** 

* * 

* * 

* DISABLE LINE ♦ 

* * 

* * 
***************** 



♦.END OF TABLE .♦ J 



•■->* F2 ♦ 
* * 
**** 



**** 

* * 

* C2 * 

* * 
**** 



**** 

* * 

* G5 ♦ — t 

* * 
**** 



*****G4 ********** 

♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 

♦ ISSUE MESSAGE * 

♦ BG E139D ♦ 

♦ * 
***************** 



• : 1 



.♦ ♦. YES 

*. INTERVENTION . ♦ > 

♦.REQUIRED .* 



▼ NU 

I**** 
* * 
->* J5 ♦ 





H3 


*. 




. ♦ ♦ 


YES . 


* 


r ♦. 


SENSE DONE 


1 


*. 


I 


♦ . . ♦ 


V 


♦. . ♦ 


**** 


k NO 


* * 






* D4 ♦ 






* * 






**** 







*****j3 ********** 

* * 

* * 

* PERFORM SENSE ♦ 

* * 

* * 
***************** 



I**** 
* * 
_>* D4 * 
* * 
**** 
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*****K2* ********* 



SET 'SENSE 
DONE' FLAG 



***************** 



. ♦ ♦. YES 
♦ . REPLY 'B' .♦ t 

*■.. ..'* 1 

♦. .♦ V 



♦ C2 ♦ 

* * 
**** 



*****G5* ********* 

♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 

* OUTPUT MSG ♦ 

* E414I ♦ 

* * 
***************** 

I**** 
* * 
->+ B5 * 
* * 
**** 



**** 
* 
J5 



* j5 ♦— , 



. ♦ ♦. YES 
♦ . REPLY 'R' .♦ n 

*'.. ..•* 1 

♦ . . * V 



I**** 
* * 
->♦ F3 + 
* * 
**** 



* NO **** 

* * 

* Gl ♦ 

* * 
**** 



*****K4 ********** 

+IJZAD037 ♦ 
*_*_*_*_*-*_*_*_* 

♦ ISSUE MESSAGE ♦ 

♦ BG E1990 ♦ 

* * 
***************** 



*****j5********** 



***************** 



*****K5********** 

♦EXCP ♦ 

*_*_*_*_*_*_*_*_* 

♦DO MODE SET AND+ 

♦ REWIND ♦ 

* * 
***************** 

1**** 
* * 
->♦ A3 ♦ 
* * 
**** 



Chart AH. IJZA.D031: Device Decode (Section 1 of 3) 



* A3 
* 
**** 
G31EN10 



****A1********* 

* * 

* IJZAD031 * 

* * 

*************** 



Bl *. 

. +ORIGIN ♦. 
* OF LAST *. NO 

IMAGE FROM . * 

* . REMOTE . * 



*.NDR SPECIFIED.* 



*****D1 ********* 

♦IJZAD037 

*_*_*_*_*_*_*_*_ 

* ISSUE MSG BG 

* E165I 



***** 



r*********** 



R31SETSW 

**ei******* 

* * 

♦RESET $OPCOM * 

*AUD DEV CHANGE * 

* SWITCHES * 

* * 
*********** 



**** pi ********* 
* 

* IJZAD052 
* 

*************** 



**B2******* 

* * 

* * 
->*CLEAR SWITCHES 

* * 

* * 
*********** 



*****C2********** 
♦IJZAD057 * 
*_*_*_*_*_*_*_*_* 

* RESTORE TAPE * 

* LABELS * 

* * 
***************** 



C31RELD 

*****j32 ********** 



***************** 



***** e2 ********** 
♦C31LRFL AH * 
*-*-*-*-*-*-*-*-* 

* CLEAR ALL * 

* ENTRIES FROM * 

* DEVICE TABLE * 
***************** 



.NDR ENTERED .* •, 

*. . * V 



* YES **** 

* * 

* B5 * 

* * 
**** 



V 



C31KNDR1 




, * 


**G1 ******* 


G2 *. 


* * 


. * *. 


♦SET NDR. MASK* 
* AND VALID *< — 


YES .+FOLLOWED BY*. 


*. A '/' .♦ 


♦DEVICE FLAGS ♦ 


*. . ♦ 


* * 


♦. . * 


*********** 


*. . * 






♦ NO 


**** 








*AJ * 








* F4 *-> 








* * 








**** 








G31EN15 V 


C31KNDR3 ^ 


**H1******* 


*****H2 ********** 


* * 


* * 


* SET DEV * 


♦MOVE ERROR CODE+ 


* CHANGE FLAG * 


♦01 INTO MSG BG ♦ 


* * 


♦ E108I * 


* * 


* * 


*********** 


***************** 


**** 


**** 




* * 


♦ AJ ♦ 




•-->* A3 * 


♦ J4 *-> 




* * 


* * 




**** 


**** 






A31E108I V 




*****j2* ********* 




+IJZADO70 * 




*_*-*_*_*_*_*_*_* 




♦ ISSUE MSG BG * 




♦ E108I * 




* * 




***************** 




**** 




* * 




L_>* D4 * 




* * 








**** 



**Q3******* 



SET $OPCOM 
SWITCH 



*********** 



*****C3 ********** 
♦IJZADO70 ♦ 
*-*-*-*-*-*-*-*-* 



***************** 



**D3**+++++ 

* * 

* CLEAR VALID * 
♦DEV AND DOUBLE 
♦SLASH SWITCH ♦ 

* * 
*********** 



*-*-*-*-*-*-*-*-* 

♦ CLEAR ALL ♦ 

♦ ENTRIES FROM ♦ 

♦ DEV TABLE + 
***************** 



**** 

* * 

* El + 

* * 
**** 



•n 



**** 

* * 

* H3 ♦--! 

* * 
**** 

**H3+****** 

* * 
♦SET SYMBOLIC ♦ 

♦NAME FOUND BIT 
* * 

* * 
*********** 

1**** 
♦AJ ♦ 
->♦ Bl 



**** 

****A(j********* 

* * 
->♦ IJZAD032 ♦ 

* * 
*************** 



**** 

* * 

* DU ♦— t 

* * I 
**** 

H31LPMSG V 

**Q4******* 

* * 

* * 
♦RESET DEV FLAGS ♦ 

* * 

* * 
*********** 



*****E4 ********** 
♦C31LRFLG AH+ 
*_*_*_*_*_*_*_*_* 

♦ CLEAR ALL ♦ 

♦ ENTRIES FROM ♦ 

♦ DEV TABLE ♦ 
***************** 



♦ AJ- B5,D1,E3 # 
F2,G1, G2 
**** 



* * *— ., 

* * 1 

**** 
1VALAD V 



N31VALAD 

*****j4* ********* 



♦MOVE ERROR CODE+ 
-♦ 02 INTO MSG ♦< 



**** 

* * 

* B5 +— t 

* * 1 
**** y 



A31ACHCK 



. *. 



B5 

. ♦ *. 
NO .♦ +. 

- — *. CHANNEL ENTRY. 



** C 5******* 



SET CHANNEL * 
FLAG ♦ 



*********** 



*****q5* ********* 

* * 

* * 
♦BYPASS CHANNEL * 

* * 

* * 
***************** 



S31CAN06 V 

*****E 5********** 



♦ LOAD DEVICE * 
♦TABLE POINTERS ♦ 



***************** 







**** 








♦AJ ♦ 








♦ C5 *-> 








* * 








**** 




V 


S31CAN05 V 


*****F4********** 


**E5******* 


♦IJZADO70 ♦ 


* * 


*_*_*_*_*_*_*_*_* 


♦ CLEAR ♦ 


♦ ISSUE MSG BG ♦ 


+ DETECTION BIT ♦ 


♦ E161I ♦ 


* * 


* * 


* * 


***************** 


*********** 


**** 


**** 




* * 


♦ AJ ♦ 




L_>* El + 


* HI *-> 




* * 


* * 




**** 


**** 






A31ASET2 V 




*****q 5* ********* 




* * 




♦SAVE BEGINNING ♦ 






♦ ADDI 


*ESS * 



***************** 



♦ IS IT A *. 


YES 


UNIT ADDRESS . 


* n 


*. . ♦ 


1 


*. . ♦ 


J 


♦. . ♦ 


V 


* NO 


***** 




♦AJ * 




* Al* 



***************** 





YES .♦ IS THIS *. 




: *. INCLUSIVE .♦ 




A ♦. OPER .* 






♦. . * 






*. . ♦ 






♦ NO 






**** I 






♦AH ♦ 






♦ El *-> 






* * 1 






**** V 






A31A$ . *. 






K5 ♦. 






. ♦ *. 






NO .* VALID ♦. 






L ♦.SYMBOLIC NAME.* 




*. . * 




*. . * 




*. . ♦ 




♦ YES 

I **** 

♦ * 
L->+ H3 ♦ 
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**** 

♦AH * 

* H5 * — n 

* * 

**** 

A31AUNIT V 

**Al******* 

* * 

* SET UNIT * 

* ADDRESS FOUND 

* BIT * 

* * 
*********** 



**** 
♦AH * 
* H3 



**** 
A31AINCR 

*****-Ql* ******** 



— >*UPDATE POINTER 



***************** 



* * — , 

* * ] 
**** V 

G31EN06 .♦. 
AH 



. +LAST DEVICE*. NO 
VALID . * 



* IS DEV 
TABLE FULL 



S31CAN02 

* + *** C 2 ********** 





Dl 


*. 






. * *. 






. * *. 


NO 


* 


VALID LENGTH . 

*. .* 

*, . * 

*. .* 


'I 




'* YES 


***** 








*AH * 








* JU* 








* * 








* 




v 






. *. 






El *. 






. * *. 




NO 


.♦IS SYMBOLIC*. 




— * 


NAME BIT ON . 
*. .* 
*. . * 
*. . * 
* YES 
I **** 
*AH * 


* 








■ 


L->* K5 


* 



**** 

* * 

* Gl * — i 

* * J 

**** v 

Gl* **. 
. * *. 

. * *. ' 

* .CHANNEL ENTRY. ♦■ 



*****H1* ********* 



***************** 

1**** 
*AH * 
->* G5 * 
* * 
**** 



***************** 



*****j32 ********** 



♦ COMPUTE ENTRY ♦ 

♦ LENGTH ♦ 



***************** 



E2 *. 

. * ♦. 

.♦IS SYMBOLIC^. 



G31EN07 .♦. 


CU *. 


. * * 


NO . * LAST DEV 


*. ENTRY 

*%. .. 


V *. .♦ 


***** * YES 


♦AJ1* ***♦ 




* K5** * 




* * * DU *-> 




* * * 




**** v 


G31EN08 .*. 


D4 *. 


. * * 


.♦ MORE THAN 


♦ . ONE VALID 


♦ . ENTRY 



* SPECIFIED .♦ t 

♦. .♦ V 



G31EN11 

**Etj******* 

* * 

♦ SET 
MULTI -ENTRY 

♦ FLAG 

* * 
*********** 



***** 
♦AH * 
* J4* 

* * 



*****P3 ********** 



TOO MANY *, 


YES 


♦ MOVE SYMBOLIC ♦ 


CHAR. 




♦ NAME INTO ♦ 


. * 


1 


♦ BUFFER ♦ 


*. . * 


J 


* * 


*. . * 


V 


***************** 


* NO 


***** 


j 


1 


♦ AH * 


**** 




* J4* 


*AJ1* 




* * 


L->+ Dl ♦ 



G31EN09 

**F4******* 



*********** 



**** 
*AH * 
L_>* HI * 
* * 
**** 



YES 


.* TOO FEW *. YES 








"I 


♦. CHARACTERS .♦ n 

*"•• ••"* 1 

♦. .♦ V 






***** 


* NO ***** 






*AH * 


1 *AH * 






* J4* 


* J4* 






* * 


* * 






* 


1 








V 
. *. 


S31CONTX .*. 






H2 *. 


H3 *. 






. * *. 


. ♦ ♦. 






.♦VALID UNIT ♦. YES 


.♦ IS '-' ♦. NO 






♦ .■ ADDRESS .♦ 


>♦. SPECIFIED .* — -t 






♦. . ♦ 


*. .* 






♦. . ♦ 


♦. .♦ 1 






♦. . ♦ 


*. .* V 






* NO 


* YES ***** 






1 **** 

♦AH * 
l_>* J4 * 




♦AJ1* 


**** 






♦ Al* 


♦AJ1 + 






* * 


* G4 ♦— -. 




* * 




* 


*J4 * 




**** 


V 


**** I 






. *. 


N31VLRNG V 






J3 *. 


*****j4* ********* 






. * IS *. 


* * 






.* INCLUSIVE *. YES 


♦MOVE ERROR CODE* 






*. OPER I 


BIT ON .♦ 


-__>*60 INTO MSG EG ♦ 



.* *. YES 
->*. IS IT A 7' . * t 

*. .* V 



**** 

* * 

* D4 * 

* * 
**** 



SWITCH ON . * t 

*. .* V 



NO ***** 
*Ah * 

♦ JH* 



* ****c5**** ****** 

* * 

* INCREMENT * 

* DEVICE FIELD * 

* POINTER * 

* * 
***************** 



V 
**D5******* 

* RESET * 

* INCLUSIVE * 

* OPERATION * 

* SWITCH * 

* * 
*********** 

I .... 

*AH * 
L_>* F5 * 



****P5********* 

* * 

* C31LRFLG * 

* * 
*************** 



*****G5*** ******* 



***************** 



*****H5*** ******* 

* * 

* * 

* CLEAR DEVICE ♦ 

* * 

* ♦ 
***************** 



J5 ♦. 
. * * 

ANY MORE 



K3 *. 

. * *. 

. * * 

.IS •-' VALID 



***************** 



**** 
*AH * 
->* J2 



****K5* ******** 

* * 

* RETURN * 

* * 
*************** 
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->* Gl * 

* * 
**** 



Chart AJ1. U7.Anrm 



Dfivice Decode (Section 3 of 3) 



**** 

♦AJ * 

* H3 *— - , 

1VCVT V 



D31VCVT 

*****Ai*** ******* 

+1JZAD0H1 * 
*_*_*_*_*_*_*_*_* 

* CONVERT UNIT * 
♦ADDRESS TO HEX * 

* * 
***************** 



** Bl*** **** 

* * 

* SET UNIT * 
ADDRESS FLAGS 

* IN CDSADR * 

* * 
*********** 



**** 
C 31 JUNTA 

*****Ci ******** 

* MOVE UNIT 

* ADDRESS INTO 
+ CDSADR 



G31TCNFG 

*****D1********** 

♦IJZAD016 * 
*_*_*_*_*_*_*_*_* 

* * 

* GET CDS INFO * 

* * 
***************** 



* A3 * — t 

**** I 
INCR V 



**** 
* A4 



***** A3 ********** 

* 

INCREMENT LUB * 

POINTER * 



***************** 



NO . *IS POINTER 
*. AT END 



**** 

* * 

* Jl * 

* * 
**** 



S31NOTAS 

*****C3******** 

♦IJZAD041 



***************** 



. *. A31E127I 

Fl *. *****F2********** 

. * *. +IJZAD037 * 

SYMBOLIC *. YES *_*_*_*_*_*_*_*_* 

FLAGS ON . * >* ISSUE MSG BG * 

.* * E127I * 

*. . * * * 

*. . * ***************** 



♦AJ * 
->* A4 * 



* * 

♦SET NO CDS FLAG* 

* * 
*********** 



**+**B4* ********* 

* * 

* PUT LUB * 

* ASSIGNMENT IN * 

* DEV TABLE * 

* * 
***************** 



**cn******* 



*********** 



*****D4*** ******* 



***************** 



G31EN04 .*. 




E4 *. 




. * ♦. 




. * INCLUSIVE 


*. NO 


♦ . OPERATION 


. +— -. 


♦. 


♦ 1 


♦ . . ♦ 


1 


♦. . * 


V 


♦ YES 


***** 






♦AJ * 






♦ M* 






* * 


J 




* 



***** 
♦AJ ♦ 
♦ J4* 



***************** 



**** 
S31TESTL 



INVALID 


♦ . YES 


RANGE OF 


.*— , 


DEVICES 


* 1 


♦ . . ♦ 




*. . * 


V 


! « NO 


***** 






♦AJ ♦ 






* J4* 



♦. ASSIGNED . + -. 

♦ . .♦ V 



♦ A3 ♦ 

* * 
***** 



NO . 


♦ LAST- 


DEV 


r ♦. 


SUCCESSFUL 


1 


♦. 


1 


*. . ♦ 


V 


♦ . . ♦ 


**** 


+ YES 


* 






CI ♦ 






* 






**** 







ANY MORE 
DEVICES 



**** 

* AJ ♦ 

* c« ♦ — t 

* * ( 
**** 

G31EN05 V 

***** K 5*** ******* 

♦IJZADO70 * 
. NO *_*_*_*_*_*_*_*_* 
. * >* ISSUE MSG BG * 

* E110I * 

* * 
***************** 



**** 

* * 

* CI" ♦ 

* * 
**** 



***** 
♦AH * 
♦ AH* 
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****A3* ******** 
t * 

* IJZAD032 * 
¥ * 

*************** 



*****B3 ********** 



A32SOSPA 

*****C1* ********* 



♦MOVE SOSP INTO * 
* TEST TABLE ♦ <- 



***************** 



*****Q^********** 

* * 
♦SET SOSP ACTIVE+ 

♦ SWITCH ♦ 



***************** 



*****£!********** 

* * 

* UPDATE TEST ♦ 

* POINTER ♦ 

* * 

* * 
***************** 

**** 

* * 
->♦ K3 ♦ 

* * 
**** 



E32RR11 

*****G1* ********* 

* * 
♦MOVE ERROR CODE+ 
♦11 INTO MSG BG ♦<- 

* E112I ♦ 

* * 
***************** 

L**** 
* * 
>♦ E5 ♦ 
* * 
**** 



T32PNR 

***** H 2 ********** 
♦N32UMTST AL+ 
*_*_*_*_*_*_*_*_* 

* * 
♦CHECK NUMERALS ♦ 

* * 
***************** 



T32SECT V 

*****j2* ********* 

♦ LOAD TEST ♦ 

♦ SECTION INTO ♦ 

♦ SECTION LIST ♦ 

♦ TABLE ♦ 

♦ * 
***************** 
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***************** 



C3 ♦. 
. ♦ ♦. 
. +1ST CHAR A 



**** 

♦AM 
G3 



* G3 +— t 

♦ F4 ♦ 
**** 
ETRN1 I 



C32LRTST 

*****Q3********** 



***************** 



*****E3********** 



***************** 



*****£)(J********** 

* * 
♦MOVE ERROR CODE+ 
♦04 INTO MSG BG ♦ 

* E112I ♦ 

* * 
***************** 



T32NPR .♦. 


T3 2STFST . ♦. 


F2 ♦. 


F3 ♦. 


. ♦ ♦. 


. ♦ ♦. 


YES .♦ ♦. 


YES . +IS 1ST CHAR+ 


*. SOSP ENTRY .♦< 


*. ALPHA 



.♦IS 1ST CHAR+. NO 
NUM .♦ 



**** 
♦AM ♦ 

♦ m *—-, 

♦ K3 + 
**** 

2RR05 V 



♦MOVE ERROR CODE+ 
->*05 INTO MSG BG ♦ 

♦ E112I + 

* * 
***************** 

**** 

* * 
->♦ E5 ♦ 

* * 
**** 



*****H3********** 
* * 

♦INSERT 'T' INTO+ 



***************** 



*****j3** ******** 

♦N32UMTST AL+ 
*_*_*_*_*_*_*_*_* 

♦SUB-ROUTINE TO ♦ 
♦CHECK NUMERALS ♦ 
* * 

***************** 

**** 



.♦ANY BLANKS 
. INSERTED 



***** 
♦AL ♦ 
♦ A3 + 



**** 
♦AL ♦ 

* G4 *—-, 

* * | 
**** 

E32RR06 V 

*****K4* ********* 

* * 
♦MOVE ERROR CODE+ 

>*06 INTO MSG BG ♦ 

* E112I ♦ 



***************** 

1**** 
* * 
->♦ E5 ♦ 

* * 
**** 



R32ETRN1 

****Q5********* 

* 

♦ IJZAD033 
* 
*************** 



♦AK-B4,C4,F4,G4 


AM-B3 


**** 


♦ j. ♦ 


* * * 


* * | 


**** 1 


E32ERR V 

*****E5* ********* 


♦IJZADO70 ♦ 


*_*_*_*_*_*_*_*_* 


>* ISSUE MSG BG ♦ 


♦ E112I ♦ 


* * 


***************** 


**** 




♦ AL ♦ 




* B4 ♦-> 




* * 




**** V 


E32PRM . ♦. 


F5 ♦. 


. ♦ ♦. 


.♦INPUT FROM ♦. YES 


♦ . REMOTE .♦ 



*****G5* ********* 
♦IJZADO70 ♦ 
*-*-*-*-*-*-*-*-* 

♦ ISSUE MSG BG ♦ 

♦ E161I ♦ 

♦ * 
***************** 



****H5********* 

* * 

* IJZAD052 ♦ 

* * 
*************** 
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**** 

* * 

* D2 * — n 



TEST DECODE 
**** 
*AK * 

* K3 +—- , 

* * 
**** V 



NO . * IMPLIED *. 
*. REQUEST A '/'.♦ 



***** 33 ********** 

* * 

* * 

* SET REQUEST A.-Z* 

* * 

* * 
***************** 



**** 

♦ AM * 

* F3 ♦ -> 



**** 
S32ETUP1 

*****C3 ********** 



— >*CLEAR WORK AREA* 

* * 

* * 
***************** 

**** 



**** 
* A5 * 



**** 



YES 



* D2 *AL * 

* * E2 *-> 
***** * 

**** 

E32RR10 

***** 34 ********** 

♦IJZADO70 * 
*_*_*_*_*_*_*_*_* 

* ISSUE MSG BG * 

* E112I * 

* * 
***************** 



**** 
E32ERR01 

*****£(*********** 

* * 
♦MOVE ERROR CODE* 
*01 INTO MSG BG ♦ <- 

* E112I * 

* * 
***************** 



AD * -> 

**** V 

"RN1 . *. 

A5 
. * 

* 
PTR AT ■ , ■ . * •, 

*■... ..•* 

*. .* V 



.* *. YES 

*. PTR AT • , ' .*-- 



* NO **** 

* D2 * 

* * 
**** 



**** 

*AK * 

->* E5 * 



D2 * 
. * 
. * IS ■ , • 
'-' AFT 

*. CHAR 



**** 

* * 

* m * 



*****E2********** 

* * 

* DETERMINE * 

* NUMBER OF * 
♦ALPHAS IN ENTRY* 

* * 
***************** 



C32HRNWK 

*****P2 ********** 

* * 
♦MOVE EACH ALPHA* 
♦ENTRY INTO WORK* 

* AREA * 

* * 
***************** 



YES ,*IS PTR AT A*. 



*AM * 

* Al* 

* * 



YES .*IS PTR AT A*. 



***** 

*AM * 

* Al* 

* * 



*****j2*** ******* 

* * 

* MOVE PTR TO * 

* NEXT CHAR * 

* * 

* * 
***************** 

* * 
->♦ C3 * 

* * 
**** 



D3 *. 
. * * 
♦ 
PTR AT '/■ 



.* *. YES 
*. IS IT ALPHA .* 



**** 

* * 

♦ A5 * 



A32LPHOK 

*****P5* ********* 



IS PTR AT *. 


YES 


♦MOVE ERROR CODE* 


* 


UPDATE 


PTR TO * 


CHAR > 9 


* 


>*09 INTO MSG BG 


* _ 


* 


NEXT 


TABLE * 


. * 




* E112I 


* 1 


* 


ENTRY * 


*. . * 




* 


* 


* 




* 


*. . * 




***************** y 


***************** 


* NO 




**** 
♦AM * 

* Dl * — n 

* * 


***** 

*AK * 

* E5* 

* * 

* 






1 **** 

* * 
L->* D3 * 

* * 


V 




**** 








**** 


. *. 




N32DX2TB V 










G3 *. 




*****Q4********** 








. * *. 




* 


* 








ANY *. 


NO 


♦ INCREMENT TO 


* 








DELIMITERS . 


* 


>* NEXT TABLE 


* .. 








. * 




* ENTRY 


* 1 








*. . * 




* 


* 








*. . * 




***************** y 








* YES 






***** 














**** 


*AK * 














* * 


* K4* 














♦ H4 ♦— n 


* * 














♦ ♦ 1 


* 








V 




***♦ 










. *. 




E32RR08 V 










H3 *. 




*****H4 ********** 








. * *. 




* 


* 








MORE THAN *. 


YES 


♦MOVE ERROR CODE* 








ONE SECTION . 


* 


>*08 INTO MSG BG 


* 








. Elfl 


L'RY . * 




* E112I 


* 









***************** 

1**** 
*AK * 
->* E5 * 



- J 



**** 

* * 

* A5 * 

* * 
**** 



*****K3* ********* 

* * 

* SET NUMERIC * 

* SWITCH * 



*************** 

I**** 
* * 
->* A5 * 

* * 
**** 
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**** 

♦AL * 
* G2 *■ 
♦fl2 * 
**** 
S32W2RTN 



* * 

* A4 *—- 1 

****** | 



***************** 



**** *A4*** ******* 



***************** 



R32ALDEC 

*****3l* ********* 



***************** 



L32TBVAL 

*****q^********** 



E32RR07 

*****B3********** 



LOAD TABLE 
VALUES 



***************** 



YES .* INVALID *. 

*. ROUTINE NO. .* 

♦. . * 


1 *• •* 


V ♦. .♦ 


***** * NO 


*AK * ♦♦♦♦ 
* F5** * 
* * * C2 *-> 
* * * 




**** 




G32RTNDC V 

***** C 2 ********** 


* * 


* GET H] 

* ROUT 


[GHEST * 

CINE * 



♦MOVE ERROR CODE* 


YES . ♦FIRST 


ENTRY* . 


*07 INTO MSG BG ♦ <— 


*. A 'Z 1 . * 


* E112I * 


♦ . . * 


* * 


*. . * 


***************** 


*. . * 


1 


* NO 


I **** 


**** 




♦AK * 


* * 




'-->* E5 * 


* C4 *-> 




* * 


* * 




**** 


**** 






C32HKWKA V 




*****C4* ********* 




♦R32TN2AL AL* 




*_*_*_*_*_*_*_*_* 




* TRANSLATE TO * 




* ALPHA * 



***************** 



TRCOM . *. 




Dl *. 




. *DID IT *. 




.* TRANSLATE * 


NO 


*. FROM ALPHA 


* 1 


*. . * 


| 


*. . * 


1 


*. . * 


V 


* YES 


***** 






*AL * 






* GU* 






* * 






* 


LTRNS v 




***** E 1 ********** 


* 


* 


* GET ALL 


* 


* transl; 


\TIONS 


* 



***************** 



N32MTSCL . *. 

*****B3********** on *. 

* * .* ALL *. 

* INCREMENT * YES . * INCLUSIVE *. 

* SECTION LIST *< *. SECTIONS 

* *. GENERATED. * 



ADDR 

* * 

***************** 



***************** 



S32CLSTN V 

*****pl* ********* 

♦R32TN2AL AL* 
*_*_*_*_*_*_*_*_* 

* TRANSLATE TO * 

* ALPHA * 

* * 
***************** 

**** 



**** 
L32STCOM 

*****Gl ********** 

* * 

* GET ALL TEST * 

* SECTIONS IN * 
♦INCLUSIVE RANGE* 

* * 
***************** 



♦2ND ENTRY 

LOWER THAN 

*. FIRST . 



***** 

♦ AL ♦ 

* BH* 



*. 



. ♦ LAST ♦ 
.ROUTINE DONE 



!■->♦ C2 



.♦POINTER AT ♦. NO 

♦. '/' .♦ -, 

♦. .* 

♦. .♦ 

♦. . ♦ V 



**** 

* * 

* Gl + 

* * 
**** 



W32GSECT 

*****F4* ********* 

♦IJZADO70 ♦ 
*-*-*-*-*-*-*-*-* 

♦ ISSUE MSG BG ♦ 

♦ E155I ♦ 



***** 

♦AL ♦ 

♦ C3+ 

* * 



***************** 



**** 
♦ AK ♦ 
!■->♦ C5 ♦ 



R32ETRN0 

*****Q3 ********** 

* * 

* put ' FF' SHOW * 
♦END OF ENTRIES ♦ n 

* 

***************** v 

***** 

♦AK ♦ 

♦ C5+ 

* * 



****A5********* 

* * 

* R32TN2AL * 

* * 
*************** 



*****B5 ********** 

* * 
♦TRANSLATE INTO ♦ 

♦ ALPHA ♦ 



***************** 



***************** 



*****F5**** ****** 



***************** 



****G5********* 

* * 

* RETURN ♦ 

* * 
*************** 



NO .+LAST ENTRY *. 



**** 

* * 

* C4 * 

* * 
**** 



*****jl ********** 



THEN UPDATE 
MIDDLE CHAR 



***************** 



C32HKUZ 


*. 


Kl 


*. 


. * 


♦ . 


. +NEXT 


ENTRY ♦. NO 


*. A 


•z 1 .♦ •, 


*. 


•* 1 


*. 


■•* J 


*. 


.♦ V 




* YES **** 




j ***** 




♦ ♦ C4 




L_>* A4 ♦ 




* ***** 




**** 



♦***H3 ********* 

* * 

* N32UMTST ♦ 

* * 
*************** 



*****j3********** 



♦SET UP TO CHECK+ 
♦ H NUMERALS ♦ 



***************** 
**** 



**** 
N32XTNUM 



***** 

♦AK ♦ 

* G4 + 

* * 



->♦. IS NUMBER > 9. ♦ 



*•.. ..•* 

♦. .♦ V 



***** 

♦AH ♦ 

* GU* 

* * 



.* 4 NUMBERS *. NO 
CHECKED . *—-. 
♦ . .♦ ] 



**** 

* * 

* K3 ♦ 

* * 
**** 



V 
****K4********* 

* * 

* RETURN ♦ 

* * 
*************** 
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Chart AN. IJZAD033: Option Decode 



A33FLN 

*****Bl**** 



****A2 ********* 

* * 

* IJZAD033 * 
*************** 



YES . * ENTERED FOR*. 
*. OPTIONS MSG . 



* MESSAGE E107I * 

* * 
***************** 



****D1********* 

* * 

* RETURN * 

* * 
*************** 



.♦FIRST ENTRY*. NO 



**** 

* 
D2 * 



♦RESET INITIAL* 
* RESPONSE FLAG * 



*********** 



♦A3********** 

* 

SAVE OLD 



***************** 



**B3******* 



*********** 



-*. OLT ACTIVE .* 



YES .*FIRST ERROR*. 
*. CONDITION .* 



YES .*DEV OR TEST*. 
*. CHANGE 



R33ETRN 

V 
****K1********* 

* IJZADO00 * 

* * 
*************** 



****K2********* 

* * 

* RETURN TO OLT * 

* * 
*************** 



♦SET APPROPRIATE* 
* BIT IN SCT * 



*************** 



E3 *. 
. * *. 

* 
LAST ENTRY 



.♦BOTH MI AND*. NO 
*. RE SELECTED .* 



* D2 * 

* * 
**** 

A33MUTEX 

*****G3 ********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E176I * 

* * 
***************** 



*****H3 ********** 



♦RESTORE OPTIONS* 
* AND CONSTANTS * 



***************** 



J3 *. 

. * *. 

. * * 

♦.REMOTE ENTRY 

*. . ♦ 

*. . * 

*. . * 

* NO 



*****P3 ********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* *_ 

* MESSAGE E161I * 

* * 
***************** 



**F4******* 



*********** 



*****G4* ********* 

♦IJZADO70 CM+ 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E115I * 

* ♦ 
***************** 



*****H4 ********** 

♦IJZADO70 CM* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E161I * 

* * 
***************** 



**J4*****+* 



*********** 



****K4* ******** 

* * 

* IJZAD052 * 

* * 
*************** 
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Chart AP. IJZAJDOOO: Scheduler (Section 1 of 4) 



****A1********* 

* * 

* IJZADO00 * 

* * 
*************** 



**** 


**** 


*AQ * 


*AQ * 


* B4 * — t 


* J4 *— , 


* * 1 


* * 1 


**** 1 


**** 1 


S00LOAD V 


SOOFLSK V 


* * * * *^3 ********** 


* * * * * £4 ********** 



Bl 


*. 




. * T MSG * . 




.♦ISSUED FOR * 


NO 


*. PREVIOUS 


* 1 


*. SECTION .* 


1 


*. . * 


J 


*. .* 


V 


* YES 


***** 


**** 




*AR * 


*AR * 




* AH* 


* J3 *-> 




* * 


* * 




* 


**** 






SOOLDPTR V 




*****ci ********** 


* 


* 


* RESET DEV AND 


* 


* TEST CHANGE 


*. 


* BIT 


PS 


* 



* LOAD CURRENT 

* TEST SECTION 



***************** 



*****B3 ********** 

* STORE HIGH * 

* ADDRESS AND * 
♦ENTRY POINT IN ♦ 

* COMMON * 

* * 
***************** 



***************** 



*****£)!********** 

* * 
♦INITIALIZE DEV ♦ 
♦AND TEST TABLE * 

* POINTERS + 

* * 
***************** 



S00OLD 

*****C2 ********** 

♦ SET OLD TEST ♦ 

♦ BITS AND FLAGS. ♦ 
♦MOVE DATE INTO ♦<- 
♦SECT. CLEAR TR ♦ 

♦ MGR ♦ 
***************** 

I **** 



NEW OLT . ♦ 



***************** 



**** 

*AQ ♦ 

♦ K4 ♦-> 



**** 

S00FP2 

*****B<j ********** 

* * 

♦ MOVE CDS INFO ♦ 
♦FOR PRIMARY DEV* 

♦ INTO SCT + 

* * 
***************** 



. * * . YES 
♦ . OLD TEST .♦ n 

X..."" I 

* N0 ***** 
♦AR ♦ 
♦ Bl* 
* * 



*****Q3********** 



***************** 



. *. SOOMVCDS 

D4 ♦. *****D5********** 

. * *. * * 

.♦OLT. SIZE < ♦. YES +MOVE REMAINDER ♦ 

♦ . = CORE . ♦ >♦ CDS INFO INTO ♦ 

♦.AVAILABLE. ♦ ♦ SCT ♦ 

♦. . ♦ ♦ ♦ 

*. .* ***************** 



**** 

*AQ * 

♦ F3 ♦-> 



**** \ 


/ 










FOOCHKSC . ♦. 










El ♦. 










. ♦ * 










.♦ ANY MORE 


* 


YES 






♦ . TESTS 




* ., 






*. 


* 


J 






♦. . ♦ 










♦. . ♦ 




V 






♦ NO 




**** 






**** 






* * 


**** 




♦AQ ♦ 

♦ F3 ♦-> 






* J2 * 


♦AQ ♦ 








* * 


♦ Kl ♦— i 

* * J 
**** V 




* * 






**** 




**** V 








SOOFIRST .♦. 






SOOCHKLP . ♦. 




Fl ♦. 






F2 ♦. 




. ♦ ♦ 






. ♦ ♦. 




. ♦ NDR TESTS 


*, 


YES 


.♦ TEST LOOP ♦ 


NO 


♦ . RUN! 


WNG 




* 


— >*. SPECIFIED 


* 



*****G1 ********** 

* * 

♦ RESET TEST ♦ 
♦POINTER TO TOP ♦ 

♦ OF TABLE ♦ 

* * 
***************** 



*****H1* ********* 
♦RESET FLAG FOR ♦ 

♦ DEVICE JUST ♦ 

♦ TESTED AND ♦ 

♦ FLAGS FOR ALL ♦ 

♦ TESTS ♦ 
***************** 



YES .♦LOOPS DONE ♦. 

r *. < LOOPS .♦ 

♦. REQUESTED. ♦ 



**** * NO 

* * 

* Cl ♦ 

* * 
**** 

SOOCMINT 

V 
****H2+ ******** 

* * 

* IJZAD052 ♦ 

* * 
*************** 



*****E4********** 

♦IJZAD085 ♦ 
*_*_*_*_*_*_*_*_* 

♦ GET DEVICE ♦ 

♦ DESCRIPTORS ♦ 

♦ * 
***************** 



**** 
♦ AQ ♦ 
->♦ D3 



.♦ DEV ♦. 
. ♦ DESG MEET ♦. NO 

. TEST REQUIRE-. ♦ 

♦ . MENT .♦ 



* YES ***** 
I **** *aq * 

♦AR ♦ ♦ D4* 
I— >♦ Al ♦ ♦ ♦ 

* * * 

**** 



*. SOSP ACTIVE 


* ., 


♦. . ♦ 


] 


♦. . ♦ 


1 


♦ . . ♦ 


V 


♦ YES 


***** 


**** I 


*AQ * 


; A Si%-> 


♦ D3* 


* * 


* * 


* 


**** v 




SOOTSTIN .*. 




G3 *. 





.* IS THIS *. 

— >*. LAST DEVICE . 

* . IN TABLE . ♦ 



***** 
*AQ * 
* Kl* 



**** 




* * 




* G5 *- 


"J 


* * 
**** 


S00CHKOL 


*. 


G5 


*, 


. * 


*. 


YES .* 


*. 


♦. SOSP 


ACTIVE . * 



H3 *. 

. ♦ *, 

NDR TEST 



**** 

*AR1* 

* C2 *-> 



**** 
SOOUPDT 

*****jl* ********* 

* * 

* CLEAR PASS ON * 
♦AREA AND UPDATE+- 

* DEV POINTER ♦ 

* * 
***************** 



**** 

* * 

* J2 * 



. XJSS 

■-] 

**** 

* * 

* B4 * 

* * 
**** 



SOODEVUP V 

*****HH********** 

♦IJZAD08 5 ♦ 
*_*_*_*_*_*_*_*_* 

♦ GET DEVICE ♦<- 

♦ DESCRIPTORS ♦ 

♦ * 
***************** 



OLD TEST . ♦ 



1**** 
* * 
->* K3 * 



* MORE *. NO 

DEVICES TO .* t 

*. TEST .* 



YES ***** 
**** *aq * 
*AQ * * Kl* 
_>* A3 * * * 



. * CURRENT *. 

*. DEVICE HAVE . 

*. CDS . * 



**** 

* * 

* K3 *-> 



**** 
S00DPROT 



**** 

* * 

* G5 * 

* * 
**** 



*****J5* ********* 
♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

* * 
♦ISSUE MSG E127I* 

* * 
***************** 

L**** 
*AQ * 
>* E5 * 
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. * DEVICE * 
*. UPDATE JUST 
*. CALLED .* 



***** 

♦AQ ♦ 

♦ .Al* 

* * . 



***** 
♦AQ * 
* Bl* 



Chart AQ. IJZADOOO: Scheduler (Section 2 of 4) 



*AP * 

* K3 * — n 

* * 1 




1 




*****A1 ********** 
♦LOAD * 
*_*-*-*_*_*-*-*_* 



♦RELOAD THE OLT * 
* * 

***************** 



*AP * 
* K3 



**** 
SOOLDRTN 

*****B1 ********** 

* * 

* LOAD R14 FOR * 

* RETURN FROM * 
*DATA PROTECTION* 

* * 
***************** 



SOOFINL .*.- 
A3 *. 
. * ' BAD * . 
.* SECTION 1 *. YES 

*. FLG ON FOR .* ■. 

*. TEST .* 



**** 

* * 

* D3 * 



**** 



SOONXNEW .*. 

B3 *. 
. * WAS * . 
. * TEST *. YES 

♦.SECTION FOUND.* 

* . IN CORE . * 
♦.IMAGE.* 



. +ENOUGH CORE*. 

->*.FOR THIS TEST. 

*. SECTION . * 



*****£)! ********** 

* * 

* SET ' LOCAL * 

* PRINT ONLY' * 

* FLAG * 

* * 
***************** 



*****E1** ******** 
♦IJZAD056 * 



***************** 



*****p^ ********** 

* * 

* RESET •LOCAL * 

* PRINT ONLY' * 

* FLAG * 

* * 
***************** 



* NO 



*****C3********** 
♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

* * 
*ISSUE MSG E117I* 

* * 
***************** 

*AR1-BU AN-E4.F3 



***** 
*AP * 
* A3* 



_*_*_*_* 



***************** 



**** 

*AP 4 
* E5 



*-> 



**** 
SO BAD 

*****D4***+****** 

* SET • BAD * 
♦SECTION' FLG IN* 

* SECTION LIST * 

* TABLE * 

* * 
***************** 



*AP-J5 
AQ1-BU 
**** 



****£2********* 

* * 

* $BTOLT * 

* * 
*************** 



.♦DEV PASSED 
♦. DATA PROT 



*****m* ********* 

* * 

* UPDATE DEVICE * 

* POINTER * 



SOOPRIM 

*****G2********+* 

* * 

* SET PRIMARY ♦ 
>♦ FLAG FOR ♦ 

+ CURRENT TEST ♦ 



***************** 



. ♦ VALID ♦. YES 
.DEVICE TO USE.* 



*****E3** ******** 



***************** 



* MORE *. NO 

SECTIONS TO . * t 

*. RUN .* 

1 

* YES ***** 
I *♦♦♦ *AP + 

*AP * * Fl* 
l- >* El * * * 

* * * 

**** 



*****£(}********** 

♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

♦ ISSUE MSG BG 

♦ E201I ♦ 

♦ * 
***************** 



* * *— - 

* * | 
**** 

SOONXTST V 

*****£ 5********** 

♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

♦ >+ ISSUE MSG BG * 

♦ ♦ E231I ♦ 



***************** 



START MSG *. 


NO 


ISSUED 

. * 
*. « ♦ 


*— | 




♦ . . ♦ 


V 


* YES 


**** 


1 **** 


* 


♦AR1** D3 * 


«■->♦ D2 


* 


* 4 


**** 


**** 





H3 *. 

. * *. 
* 
DEV IN FPM 



S00FPOLD 

*****H4********** 

* * 

♦SET FPM BIT IN ♦ 

>* SCT ♦ 



***************** 



.♦ ANY MORE 
♦. DEVICES 
*. 


*. 


*. .* 


**** 


l- NO 


*AP ♦ 

♦ J2 ♦-> 

+G3 ♦ 
**** \ 


J 


S00COMM 

Kl 


*. 



■■-n 



*****j2********** 



***************** 



YES .* WERE NDR *. NO . * MORE 

♦. TESTS RUNNING. ♦< +. DEVICES TO 

♦. .♦ ♦. TEST 



***** 
*AP * 
* F2* 



I **** 

* * 
»■->* A3 * 



A3 
* 
**** 



***** 
*AP + 
♦ H3* 



♦ NO 



*****j3** ******** 



***************** 



.♦ DASD FILE ♦. YES 

->*.PROT. ON THIS. ♦ t 

♦. SYSTEM .♦ I 



***************** 



***** 

*AP * 
* A4* 



***** K 4*** ******* 



***************** 
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***** 

*AP * 
* BH* 



Chart AR. IJZADOOO: Scheduler (Section 3 of 4) 



**** 

*AP 

E5 



* E5 *—, 

* * 1 
**** 
ERRCT V 



SOOERRCT 

*****A^********* 



♦PUT ERROR LOOP * 
♦COUNT INTO SCT ♦ 



***************** 



**** 

* * 

* A3 ♦ — t 

* * ] 
**** J 

OCECOM V 



**** 




♦AP ♦ 




♦ C4 ♦-> 




* * 




**** V 


SOOCPCHK . ♦. 


Bl ♦. 


. ♦ ♦. 


. ♦ CONTROL ♦ . 


♦.PRINT OPTION .+ 


♦ . 01 


4 .♦ 



SOOCECOM 

*****A3* ********* 
♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*-* 

v ♦ ISSUE MSG BG ♦ 

♦ E158I ♦ 

* * 
***************** 



SOOSTPTR 

***** b3 ********** 



♦ POINT Rl TO * 
->+PARAMETER LIST ♦ 



***************** 



***** C 1**** ****** 



♦SET 'START MSG ♦ 
♦ ISSUED' FLAG ♦ 



***************** 



IS NDR 
SPECIFIED 



♦ MOVE NDR INTO 
->♦ UNIT ADDRESS 



***************** 



*****E;L ********** 
♦IJZAD041 ♦ 
*_*_*_*_*_*_*_*-* 

♦ CONVERT DEV ♦ 
+ADDR TO EBCDIC ♦ 

* * 
***************** 



*****q! ********** 

♦ MOVE IN ♦ 

♦ SYMBOLIC NAME ♦ 

♦ INTO MSG BG ♦ 
+ E158I ♦ 

♦ * 
***************** 



*****D3 ********** 

* * 

♦ ADJUST ENTRY ♦ 
♦POINT STORED IN+ 

♦ COMMON ♦ 

* * 
***************** 



*****E3********** 



SET 'OLT 
ACTIVE' FLAG 



***************** 



SOOCLTST 

V 

****P3********* 

* * 

* GO TO TEST + 

* * 
*************** 



S00CECM2 

*****jjl ********** 



***************** 



AOOOLDTT . ♦. 

Jl ♦. 
. ♦ ♦. 


.♦ OLD TEST ♦. NO 

♦. RUNNING . ♦ -, 

♦. .♦ 1 


♦. .♦ 1 


*. 

i 


. ♦ V 
► YES **** 
* 




♦ A3 
* 




**** 


V 
*****Kl**** ****** 


* * 


♦ MOVE IN OLD ♦ 

♦ TEST STATION ♦ 

♦ * 


* * 


***************** 


**** 


* * 


!-->♦ A3 ♦ 
* * 




**** 



* Bl ♦ — n 
TERBIT V 



***************** 



SOODTERM V 

*****B4** ******** 

♦ RESET BITS IN ♦ 
♦COMMON TO SHOW ♦ 

♦ END OF TEST ♦ 

♦ SECTION ♦ 

♦ * 
***************** 



NO . ♦ 
*. OLD TEST 



V NO . ♦ DID TEST 
-♦. SET ERROR 
+. FLAG 



*****E4* ********* 

* * 

♦ SET ASTERISK ♦ 
♦BIT FOR ERROR T+ 

♦ MESSAGE ♦ 

* * 
***************** 



♦ CLEAR ROUTINE ♦ 

♦ MASK IN SCT • ♦ 



***************** 



NO . +IS CCB1 IN ♦. 
♦. USE . =• 



*****H4********** 



***************** 



*****jl|* ********* 



♦ISSUE SVC 25 TO* 
♦ PURGE REQUEST ♦ 



***************** 



. +IS CCB2 IN ♦. NO 

USE .♦ 

♦. . ♦ 



->♦ A5 ♦ 

* * 
**** 



♦ A5 ♦--•, 

****** | 



*****A5+ ********* 



***************** 



*****B 5* ********* 



♦ISSUE SVC 25 TO* 
* PURGE REQUEST * 



***************** 



SOONOCCB 

*****C5********** 



♦RESET CCB1 AND ♦ 
->+CCB2 USED BITS ♦ 



***************** 



*****D 5********** 

♦ RESET GRAB, ♦ 

♦ DEIN. DEOCC, ♦ 

♦ UCCBU, AND ♦ 

♦ UCCB2 BITS IN ♦ 

♦ DEV TAB ♦ 
***************** 



*****£5 ********** 

* RESET BUSY, ♦ 
♦PURGE, EXIOFST ♦ 
♦AND CCIOCC BITS* 

* IN DEV TAB ♦ 

* * 
***************** 



*****P5 ********** 

♦ RESET ACTIVE, ♦ 
♦EVENT COMPLETE, ♦ 

♦ ATTN EXP BITS ♦ 

♦ IN DEVTAB ♦ 

♦ * 
***************** 



*****G5* ********* 

* * 
♦CLEAR MORECORE + 

* AND FREECORE ♦ 

* POINTERS ♦ 

* * 
***************** 



. ♦ DOES OLT ♦. NO 

. WANT TO END . * 

*. TESTING . ♦ 



*****j5* ********* 
♦SET 'FINAL' BIT* 

♦ FOR THIS ♦ 

♦ SECTION IN ♦ 

♦ SECTION LIST ♦ 

♦ TABLE ♦ 
***************** 



.♦TEST ENDED 
*. DUE TO NO 
♦ . 1052 



***** 
*ARi* 
♦ A2 + 



***** 

♦ AR1+ 

♦ M* 
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Chart AR1. IJZADOOO: Scheduler (Section 4 of 4) 



**** 

♦AR * 
* K5 * — 



S00MSG4 

*****A3***** 

+IJZAD037 

*_*_*_*_*_*. 

>* ISSUE MSG 

* E225I 



***** 
*-*-* 



**************** 



***** B 2 ********** 

♦IJZAD037 * 

*_*_*_*_*_*_*_*_* 

* ISSUE MSG BG * 

* E239I * 

* * 
***************** 



. CURRENT TEST . * -, 

♦ . .* V 



***** 
♦AQ * 
* E5* 



A00N1052 .*. 

C2 *. 
. * *. 






. *NO CONSOLE 
*. FOR DATA 
*. PROT. . 
*. . * 


* 


NO 


* i 
**** 
*AQ * 

* D5 *-> 

* * 


. * 

► YES 




V 

***** 

*AP * 

* Jl* 

* * 

* 


**** 








SOOASTK V 

*****D2 ********** 


* 




* 


♦MOVE IN 
* T ^ 


* INTO 
4SG 


* 



VYES . * ALL * 
-♦.ROUTINES RUN 



***************** 



**** 
S00NOAST V 

***** E 2 ********** 

* * 

♦ RESET 'START ♦ 
♦MSG ISSUED 1 FLG+ 

♦ AND ERROR FLG * 

* * 
***************** 



*****E4* ********* 
♦IJZAD037 ♦ 
*-*-*-*-*-*-*-*-* 

♦ ISSUE MSG BG ♦ 

♦ E198I ♦ 

♦ * 
***************** 



*****F2 ********** 
♦IJZAD037 * 
*_*_*_*_*_*_*-*_* 

♦ ISSUE MSG BG * 

♦ E158I * 

♦ * 
***************** 



*****F4* ********* 

* * 

* SET ASTERISK ♦ 

* BIT * 



***************** 



NO . ♦ CONTROL * 

♦. PRINT OPTION 

♦ . ON . ♦ 



*****H2 ********** 

* SET OLD TEST ♦ 

* BIT AND CLEAR * 
♦SCT BYTES AND+ 

* 1 * 

* * 
***************** 



ASTERISK 
BIT ON 



**** 
* 
E2 ♦ 



I**** 
* * 
->♦ D2 ♦ 



. * RE- ♦. NO 

.ESTABLISH REI. * 

*. CONTACT .♦ 



YES 
**** 
+AP ♦ 
->♦ CI 



****K2********* 

* ♦ 

* IJZAD077 ♦ 

* * 
*************** 
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Chart AS. IJZAD056: Data Protect (General) (Section 1 of 2) 



**** 

* * 

* A3 * 

* * 
**** 



****A1********* 

* * 

* IJZAD056 * 

* * 
*************** 



*****B1 ********** 
♦GET ADDRESS OF * 

* DEVICE TABLE * 
♦ENTRY FOR THIS ♦ 

* DEVICE ♦ 

* * 
***************** 



*****C1 ********** 

♦ SET DATA ♦ 
♦PROTECTION DONE+ 

♦ BIT FOR THIS ♦ 

♦ DEVICE ENTRY ♦ 

♦ * 
***************** 



A3 ♦. 
. ♦ ♦. 

TP DEVICE 

* ♦. . ♦* 
♦. . ♦ 
♦ NO 



*****B3 ********** 
** ** 

** ** 

♦♦ISSUE SVC 46 ♦♦ 
** ** 

** ** 

***************** 



*****C3 ********** 

♦ ISSUE TIO TO + 
♦CLEAR PREVIOUS ♦ 
♦STATUS + RETURN+ 

♦ FROM SVC 46 ♦ 

♦ * 
***************** 

**** 



**** 
B56SENS1 

*****D3* ********* 



♦ . IS THIS DASD . + t 

♦ . .♦ I 

♦. .♦ I 

♦. . ♦ V 



**** 

* * 

* A3 ♦ 

* * 
**** 



*****EX* ********* 
♦$$BSOPEN EL+ 
*-*-*-*-*-*-*-*-* 

* * 

* OPEN EXTENTS + 

* * 
***************** 



*****F2+ ********* 
♦IJZAD037 BQ+ 



***************** 



**** 
♦AT ♦ 
>♦ B4 



SOOSHRD 

*****G1 ********** 

♦SET PUB POINTERS 

♦ TO ADDR OF ♦ 
♦FIRST PHYSICAL ♦ 

♦ UNIT BLOCK ♦ 

♦ * 
***************** 



B56LOOP . * 












HI ♦. 








***** H 2****** 


. ♦ ♦. 








* 


.♦PUB ADDR = ♦. 


NO 




♦ UPDATE PUB 


♦. DEV ENTRY . 


*. 






— >♦ POINTER 


♦. ADDR .♦ 








* 


♦. . ♦ 








* 


♦ . .♦ 








************* 


♦ YES 










**** 1 










♦AT ♦ 










♦ D3 ♦-> 










* * J 










**** V 










B56RETRY . ♦ . 










Jl ♦. 










. ♦ ♦. 










.♦ ♦. 


NO 






♦ .DEVICE SHARED. 


* 


1 






♦ . .♦ 




1 






+ . . ♦ 




J 






♦ . .♦ 




V 






♦ YES 




**** 










* 




* 








* 


A3 


* 








* 


**** 


* 




V 










*****K1 ********** 






***** K 2****** 


♦ SET FILE 


* 






* 


♦ PROTECT MODE 


* 






* 


♦AND SHARED BITS+ 






— >♦ DO SEEK 


♦ IN DEV 


TABLE 


* 






* 



***************** 
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************* 



***♦ 

*** 

* 

D3 ♦ 
* 
*** 



ISSUE SENSE 



***************** 



♦ .INTERVENTION . ♦• 
♦.REQUIRED 



B56INTRQ 

*****P3 ********** 

♦IJZAD041 BU+ 
*-*-*-*_*-*-*-*-* 

♦CONVERT DEVICE ♦ 

♦ ADDRESS TO ♦ 

♦ EBCDIC ♦ 
***************** 



**** 
♦AT ♦ 
•>♦ Fl 





**** 
♦AT + 

♦ C3 +— , 

* * 
**** v 

B56CHKDV .♦. 

E4 ♦. 
. ♦ ♦. 




NO 


. ♦ ♦. 
>*. TAPE DEVICE . 


NO 
* 



♦.2311 OR 2314 



****E5********* 

* * 

* IJZADO03 ♦ 

* * 
*************** 



**F5******* 

* * 

* * 
->♦ SET DP OK BIT ♦ 

* * 

* * 
*********** 



****G5********* 

* * 

* RETURN ♦ 

* * 
*************** 



V 
****H4 ********* 

* * 

* IJZADO07 ♦ 

* * 
*************** 



*****H5* ********* 

♦ RESET DATA ♦ 
♦PROTECTION DONE + 

♦ BIT FOR THIS ♦ 

♦ DEVICE ♦ 

♦ * 
***************** 



****J5********* 

* * 

* IJZADO02 ♦ 

* * 
*************** 



Chart AT. IJZAD056: Data Protect (General) (Section 2 of 2) 



**** 

♦AS * 

* F3 * 

* * 
**** 



*****pi********** 

+IJZAD037 BK* 
*-*-*-*_*_*_*_*_* 

* MESSAGE E130I * 

* (CECOM) * 

* * 
***************** 



*****G1 ********** 
♦IJZAD041 BU* 
*-*-*-*-*-*-*-*-* 
♦CONVERT SENSE +♦ 

♦ CSW DATA TO + 

♦ EBCDIC ♦ 
***************** 



*****H1********** 
♦IJZAD037 BQ* 



MESSAGE E137I + 
(CECOM) ♦ 



***************** 



**** 

* * 

♦ B3 ♦ 



B56CHKAN .♦. 
B3 * 



**** 

♦AS ♦ 

♦ B4 ♦— j 

:♦..* | 



♦ . REPLY B . ♦- 



B56NOANS 

***** D2 ********** 
♦IJZAD037 BQ* 
*-*-*-*-*-*-*-*-* 

* *< 

* CECOM 04E199D * 

* * 
***************** 



B56ANSP .*. 






C3 *. 






. * * 






YES . ♦ 


*. 




r *. REPLY' P 




* 


1 *• 


*" 




J *. .* 






V ♦ . .* 






***** * no 






*AS * 








* E4* 








* * 








* 








V 






B56ANSR .*. 






D3 *. 






. ♦ ♦. 






NO .* 


*. 


YES 


: *. REPLY R 




* .. 


*. 


* 


1 


♦. . ♦ 




I 


*. . * 




V 


* 




***** 
*AS * 
* Jl* 








* * 



*****QlJ********** 

* RESET DATA * 

* PROTECTION OK * 
->* BIT FOR THIS * 

* DEVICE * 

* * 
***************** 



B56DONE 

****C4********* 

* * 

* RETURN * 

* * 
*************** 



**** 

* * 

* B3 * 

* * 
**** 



Jl * 

* 

TAPE 



3560PT2 V 

*****JQ********** 

♦IJZAD037 BO* 
*_*_*_*_*_*_*_*_* 

* * 
♦MESSAGE 04E139D* 

* * 
***************** 



**** 

* * 

* B3 ♦ 

* * 
**** 



B560PTN 

*****K2*+ ******** 
♦IJZAD037 BQ* 
*-*-*-*-*-*-*-*-* 

* * 
♦MESSAGE 04E139D* 

♦ * 
***************** 



♦ B3 * 

* * 
**** 
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Chart AV. IJZADO02: Data Protect (2321) 



**** 

* * 

* A2 * 



BADSENSE 



****Ai********* 

* IJZADO02 * 

* * 
*************** 



EPZADO02 

*****q1*** ******* 

♦IJZAD041 BU* 
*_*_*_*-*_*_*-*_* 

* CONVERT UNIT * 

* ADDRESS TO * 

* EBCDIC * 
***************** 



CI *. 

. * *. 

SECTION T 



**B2******* 



*********** 



. * SPECIAL 

*. SECTION 

*. (S,U,V, ) 



CEBIT V 

*****B3 ********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* MESSAGE El 321 * 
*CE BIT WILL NOT* 

* RESET * 
***************** 



**** 

* * 

* C4 * 

* * 
**** 



BADAGAIN V 

*****m* ********* 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

♦MESSAGE 04E140D* 
*(IS VOL IN BIN * 
* 0) * 
***************** 



**** 

* * 

* El *-> 



El 

* 
REPLY 



**** 

* * 

* Fl *-> 



**** 
CEVOL 

***F1 *********** 

* ISSUE SENSE' * 
TO BIN 
* SUBCELL 18 * 

**************** 



. * SENSE *. NO 

*. SUCCESSFUL .* -, 

*. .* | 

* YES **** 

* * 

* A4 * 

* * 
**** 



HI *. 
* * 

CE CELL 



***jl *********** 

* ISSUE SENSE * 
TO BIN 
*. SUBCELL 19 * 

**************** 



* SENSE *. NO 
SUCCESSFUL . * 



*********** 



**D3******* 



*********** 



****E3********* 

* * 

* RETURN * 

* * 
*************** 



F2 *. 
. * *. 
. * 
*. REPLY = NO 



V 
*****Q2 ********** 
♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* MESSAGE El 9 91 * 
♦INCORRECT REPLY* 

* * 
***************** 



**** 

* * 

* El ♦ 

* * 
**** 



REPLYNO 

**q3******* 

* SET DATA * 

* PROTECTION * 
* BIT FOR THIS * 

* DEVICE TO * 

* * 
*********** 



****H3********* 

* * 

* RETURN * 

* * 
*************** 



*****j2 ********** 
♦IJZAD037 BQ* 
*_*_*_*-*_*_*_*-* 

* MESSAGE E126I * 

* CE VOL NOT ♦ 

* MOUNTED * 
***************** 



**** 

* * 

* C4 * 

* * 
**** 



*. INTERVENTION 
*. REQUIRED . * 



*****qU* ********* 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* MESSAGE El 3 II * 
♦(SENSE FAILED) ♦ 

* * 
***************** 



*****q5********** 
♦IJZAD037 BQ* 



♦E130I 'INT REQ'* 
* * 

***************** 



* C4 *-> 



**** 

CECOMPRT 

*****qH*** ******* 

♦IJZAD041 BU* 
*_*_*_*_*_*_*_*_* 

* CONVERT SENSE ♦ 

* AND CSW DATA ♦ 

* * 
***************** 



*** + * D il* ********* 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* MESSAGE E137I * 

* (SNS-XXX * 

* CSW-XXX) * 
***************** 



ONCEMORE V 

*****E4********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

♦MESSAGE 04E139D+ 
+ REPLY = B, R, ♦ 
♦ OR P ♦ 
***************** 



* * 

* F4 * 



FU *. 
. * *. 

REPLY = B 



G4 *. 
. * *. 

REPLY = R 



**** 

* 

* Fl 



*****H4* ********* 

♦IJZAD037 EQ+ 
*_*_*_*_*_*_*_*_* 

* MESSAGE El 9 91 * 

* 'ALL ROUTINES * 

* WERE NOT RUN' * 
***************** 



* YES 


**** 


1 


* 


J 


* A4 


V 


* 


**** 


**** 


* 




A2 * 




* 




**** 
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Chart AV.. IJZADO03: Data Protect (Tape) (Section 1 of 2) 



****Al******+** 

* * 

* IJZAD003 * 

*************** 



AO 3 MATCH .*. 
Bl * 



♦PUB FOR DEV*. NO 
FOUND . * 



A03PUBAD V 

*****Ci ********** 
♦IJZAD041 BU* 
*_*_*_*_*_*_*_*_* 

* CONVERT THE ♦- 

* UNIT ADDRESS * 

* * 
***************** 



♦ AW * 

♦ G2, * — t 

♦ J4 * <- 



* Fl * — n 
**** 
3REPET V 



A03REPET 

***pi*********** 

* ISSUE READ * 
COMMAND VIA 
* EXCP * 

**************** 



*. ERROR READ 



*. .* 

YES 



**B2******* 

* * 

->*UPDATE POINTER *- 



*********** 



*********** 



A03 9TRK 

*****£2********** 

* PUT 9 TRA cK * 
♦MODE INTO CCW, * 

♦ MOVE CCW INTO + 

♦ CCB * 

* * 
***************** 



**** 

* * 

* A3 ♦ — n 



***** A3 ********** 
*IJZAD037 BQ* 
*-*-*-*-*-*-*-*-* 

* * 

* MESSAGE Ell 9 I * 

* * 
***************** 

**** 

* * 

* B3 *-> 

* * 
**** 

A03RTRY1 V 

*****B3 ********** 

♦IJZAD037 BQ * 
*_*_*_*_*_*_*_*_* 

* * 
♦MESSAGE 04E139D* 

* * 
***************** 

**** 

* * 
+ C3 *-> 



**** v 




A03IN1 .*. 




C3 


*, 




. * 


*. 




, * 




♦ . YES 


♦. REPLY •B' 


.* , 


*. 




* 1 


*. 


. * 


J 


*. 


. * 


V 


'K NO 


***** 






*AW * 






* J5* 






* * 


, 


. 


* 


. *. 




D3 


*, 




. * 


* 




. * 




*. YES 


♦. REPLY 'P' 


. ♦ -i 



**** 






**** 




* * 




* * 


* A4 *— , 

* * I 
**** v 

• *. 
A4 *. 




* A5 *—-, 




* * 1 




**** 1 




V 
*****A5* ********* 


. * *. 




* * 


. * ♦. 


NO 


* * 


*. VOL 1 


* , 


*SET UP FOR I/O * 


*. . * 




* * 


*. . * 


1 


* * 


*. .* 


V 


***************** 


* YES 


**** 






1 


* * 


**** 






* £4 ♦ 


* * 






* * 


* B5 *-> 




V 


**** 


* * 
**** 




. *. 




A03ALLOV V 


B4 *. 




**B5******* 


. * *. 






. * * 


NO 


* SET CTR TO * 


*. HDR 1 


* , 


* CHANGE MODES * 


*. . * 


I 


* * 


*. . * 


1 


* * 


♦. . * 


V 


*********** 


* YES 


**** 






**** 




* * 


**** 




* * 




* EU * 


* * 




* CU *-> 




* * 


* C5 *-> 




* * 




**** 


* * 




**** 






**** 




V 




A037TRK V 


**C4******* 




*+***C 5* ********* 



*********** 

1**** 
*AW * 
->* Bl * 



*. .* V 



E3 
. * 

REPLY 



* 


AW * 


*** 


► 




* 


F3* 


* 


* 






* * 


* EU 


*_ 


'I 




* 


* 


* 






**** 






A03VASC 


El 


. *. 



**** 
* * 
->* A3 * 



*****F3 ********** 
♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 
♦MESSAGE 04E199D* 

* * 
***************** 

**** 

* * 
L->* C3 * 

* * 
**** 



**** 




* * 




* G4 * — t 

* * ] 
**** v 






STD7 . *. 




G4 


* 



.♦ STANDARD *. YES 
->*. TAPE LABEL . * -. 

*. .* V 

* NO **** 
I ***** * 

* * A4 * 
L->* A3 * * 

* ***** 
**** 



9 TRACK .* 1 

■...."■• 1 

* YES **** 

I * * 

* C5 ♦ 

* * 
_J **** 



+ .RTRY CNT = . ♦- 



*****j2 ********** 

* * 

* * 
->* SUBTRACT 1 * 1 

: 

***************** v 



* B5 * 

* * 
**** 



H3 *. 
1600 BPI 



**J3******* 



*********** 

I**** 
* * 
->* G4 * 
* * 
**** 



**H4******* 



*********** 

1+*** 
* * 
->* GU * 
* * 
**** 



UNIT 


CHECK . 
. * 


* 


*. 


, * 




* 


. * 
* YES 
I **** 






* 


* 




«■->* G5 


* 




* 


* 




**** 





***************** 

**** 

* * 
->* Fl * 

* * 
**** 



**E5******* 



*********** 

L**** 
* * 
>* C4 * 
* * 
**** 



**** 

* 

* G5 
* 
**** 



: 1 



*****q5*** ******* 
♦IJZAD037 BQ* 
*-*-*-*-*-*-*-*-* 

* * 

* MESSAGE Ell 81 * 

* * 
***************** 



*****H5* ********* 
+IJZADOU1 BU* 
*-*-*-*-*-*-*-*-* 

* CONVERT CCW * 

* DATA * 

* * 
***************** 



*****j5********** 

♦IJZADOU1 BU* 
*_*_*_*_*_*_*_*_* 

* CONVERT SENSE * 

* DATA * 

* * 
***************** 



*****K5* ********* 
*IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E137I * 

* * 
***************** 

L**** 
* * 
>* B3 * 
* * 
**** 
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Chart AW. IJZADO03: Data Protect (Tape) (Section 2 of 2) 



**** 

*AV * 

* * 1 
**** v 



A035CPRT V 

*****£!********** 

* * 

* SET UP TAPE * 
♦DATA PROTECTION* 

* MESSAGE * 

* * 
***************** 



*****D1********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E122I * 

* * 
***************** 



*****£! ********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E139D * 

* * 
***************** 

**** 



* Fl *-> 



. +EXPIRATION 
. DATE GIVEN 



.♦TODAY DATE *. NO 

*.> EXPIRATION .* 

* . DATE . * 



**** 

*AV * 

* D3 ■*-> 



**** 

* * 

* H5 * 

* * 
**** 



**** 

A03EXPIR 

*****P3********** 

* * 

* SET DATA * 
♦PROTECT BIT FOR* 

* DEVICE =1 * 

* * 
***************** 



G2 


*. 
*. 


*****Q3 ********** 

* * 


. * * . YES 

*. REPLY R .* n 

*. .* 


* SAVE LABEL IN * 

* DEVICE ENTRY * 

* * 


*. .* 


* * 


*. .* V 


***************** 




* NO ***** 
*AV * 
* Dl* 
* * 

* 






V 
***** H 2 ********** 


" 


/ 


♦ IJZAD03* 
*_*_*_*_ 


f BQ* 
►_*_*_*_* 


****H3** 

* 


|e******* 

* 



♦MESSAGE 04E199D* 
* * 

***************** 



**** 

* * 

* Fl * 

* * 
**** 



* RETURN * 

* * 
*************** 



*****j3********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* *< 

♦MESSAGE 04E199D* 

* * 
***************** 



**** 

* * 

* G4 * 

* * 
**** 



A03NEX 

*****E4* ********* 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

♦MESSAGES El 231,+ 

♦ 04E134D + 

* * 
***************** 



A03RTRY V 

*****F4 ********** 
♦IJZAD037 BQ* 
*_*_*-*_*_*_*_*_* 

* * 
♦MESSAGE 04E139D* 

* * 
***************** 

**** 



* G4 *-> 



G4 *. 

* * 

REPLY B 

♦ . . ♦ 

♦. . * 

■ NO 



**H5******* 





*, 




* RESET * 


REPI 


,Y P . * 




r — >* STANDARD LABEL * 




. * 




* BIT * 




. * 




* * 


*. 


. * 




*********** 


*"NO 




I*** 








* 


**** 








* 


H5 *AV * 








* 
i 


* C3 *-> 

K**** * 




i 


' 




**** 




. =i 


, 




A03DP0 V 


J4 


* # 




**J5******* 




*. 




* * 




*. 




* RESET DATA * 


REPI 


jY R .* 




♦PROTECTION BIT * 




. * 




* * 




. * 




* * 


* *. 


, * 




*********** 


4 


YES 
**** 

*AV * 

L_>* Dl * 

* * 

**** 
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****ks********* 

* * 

* RETURN * 

* * 
*************** 



Chart AX. IJZZUDO07: Data Protect (2311/2314) 



****Al******* 

* IJZADO07 
* 
************* 



*****B1 ********** 



*************** 



***************** 



NO .* DASD FILE *. 
- — *. PROTECT IN . i 
*. SYSTEM . * 



**E1******* 

* * 

* SET FILE 
PROTECT MODE 

* BIT 

* * 
*********** 



***** pi ********** 

*$$BSYSWR * 
*_$_*_*_*_*_*_*_* 

* ALLOWS WRITES * 

* ON SYS WITH * 

* DASD FP * 
***************** 



A07OVER V 

+++++Q1* ********* 

* * 

* RESET SEEK * 

* ADDRESS TO * 

* NORMAL * 

* * 
***************** 



**** 

AXXALLAG 

*****H1* ********* 

* * 
♦SET RETRY COUNT* 

* TO 10 * 



***************** 
**** 



AXXAGAIN 

*****jl* ********* 

♦ EXCP 



*_*_*_*_*_*_ 



READ FST 11 * 

BYTES OF STD * 

LABEL * 

**************** 



**** 

* * 

* A2 * — 

* * 
**** 

A2* 



***** C2 ********** 
♦IJZAD041 * 
*_*_*_*_*_*_*_*_* 

* CONVERT UNIT * 

* ADDRESS * 

* * 
***************** 



V 
**+**D2 ********** 
+IJZAD037 * 
*_*_*_*_*_*_*_*_* 

* PRINT MESSAGE * 

* E125I * 

* * 
***************** 



*****E2 ********** 
♦IJZADOU1 * 
*_*_*_*_*_*_*_*_* 

* * 

* CONVERT DATA * 

* * 
***************** 



V 
*****P2 ********** 

*IJZAD037 * 
*_*_*_*_*_*_*_*_* 

* PRINT MESSAGE * 

* E137I * 

* * 
***************** 

**** 



* G2 *-> 



**** 
AXXNBPR 

*****q2*** ******* 
♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

* PRINT MESSAGE * 

* E139D * 

* * 
***************** 



H2 
. * 

* 
REPLY 



AXXNOUC 

*****A3********** 
♦IJZAD041 * 
*_*_*_*_*_*_*_*_* 

>* CONVERT UNIT * 

* ADDRESS * 

* * 
***************** 



*****B3********** 
♦IJZAD037 * 
*-*_*_*-*_*_*_*_* 

* PRINT MESSAGE * 

* E125I * 

* * 
***************** 

1**** 
* * 
->* G2 * 
* * 
**** 



**** 

* * 

* D3 * — t 



**** 








* * 








* B4 * — -, 

* * I 
**** V 














AXXLABEL . *. 








B4 *. 








. * *. 








.* IS LABEL 


* 


NO 




*. 'VOLl' 




* n 




*. 


* 


1 




*. . * 








*. .* 




V 




* YES 

1 




**** 

* * 

* D3 * 

* * 
**** 




AXXSECUR . *. 






AXXSEPRO 


CU *. 






*****C5********** 


. * *. 






♦IJZAD041 * 


.* SECURITY 


* 


YES 


*_*_*_*_*_*_*_*_* 


*. PROTECTED 




*-* 


— >* CONVERT UNIT * 


*. 


* 




* ADDRESS * 



n 



**** 

AXXRONTG 

*****D3********** 
♦IJZAD041 * 
*_*_*_*_*_*_*_*_* 

* CONVERT UNIT *< 

* ADDRESS * 



NO .* NEXT 6 *. 
*. CHARS CE PACK.* 



******** 



c******** 



***************** 



*****D 5********** 
♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

* PRINT MESSAGE * 

* E124I * 

* * 
***************** 



*****E3 ********** 
♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

-* PRINT MESSAGE * 

* E12UI * 

* * 
***************** 

**** 

* * 

* F3 
* 

**** 



n, 



*_*_*_*_ 



***************** 



EU 


*. 


*****E5********** 


. * *. 


+IJZAD037 * 


. * IS DEVICE *. YES 


*_*_*_*_*_*_*_*_* 


SHARED . * -, 


* PRINT MESSAGE * 


*. .* J 


* E122I * 


*. .* I 


* * 


*. .* V 


***************** 


* NO **** 








* * 








* J3 * 








* * 








**** 






V 


AXXNBR V 


**F4******* 


*****F5********** 


*SET CE BIT * 


+IJZAD037 * 


*AND RESET FPM* 


*_*_*_*_*_*_*_*_* 


SET DEV * 


* PRINT MESSAGE * 


* PROTEC 


:tion * 


* E139D * 



*********** 



***************** 



**** 

* 
H3 



* nj * — i 

* * 
**** J 

BRES V 



*. REPLY = ' P' 



*********** 

**** 

* * 

* J3 * — n 

* * ) 

**** 
XPRES V 



* SET 'DEVICE * 
->*PROTECTION' AND*- 

* FPM BITS * 
* * 

*********** 



AXXRPLY . *. 


G5 


*. 


. * 


* 


YES .* 




*. REPLY = B 


1 *• 




L *• 


. * 


v *. 


. * 


* * * * * NO 


* 




H3 * 




* 




**** 




i 


7 


. : 


■, 


H5 


*. 


. * 


* 


YES .* 




*. REPL1 


f = R 



* HI * 

* * 
**** 



AXXRETRN 

V 
****J4 ********* 

* * 
— >* RETURN * 

* * 
*************** 



*****j5* ********* 

♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

* PRINT MESSAGE * — 

* E199D * 

* * 
***************** 



* 

L 



K2 
.* 
. * 
->*. LAST RETRY 



LAST RETRY .* n *. REPLY = ' R' .* n 

*. .* 1 *. .* ] 

*. . * *. . * 

*. . * V *. . * V 



I **** 

* * 
L_>* B4 * 

* * 
**** 



* YES **** 
I ***** * 

* * Jl * 
L_>* A2 * * 

* ***** 
**** 



YES **** 
***** * 

* * F3 * 
■>* HI * * 

* ***** 
**** 
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Chart AY. IJZaDOll: TP Line Connection (Section i of 3) 



****A1********* 

* * 

* IJZAD011 * 

* * 
*************** 



V 
*****3l ********** 

* 02 * 
*_*_*_*_*_*_*_*_* 

* STANDARD * 

* LINKAGE * 

* * 
***************** 



*****ci ********** 

* * 
♦CHAIN FIRST CCW* 

* (DISABLE) OF * 
♦CHANNEL PROGRAM ♦ 

* * 
***************** 



***** E 1* ********* 
♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 

♦OUTPUT HDR MSG ♦ 

♦ EU001 ♦ 

* * 
***************** 



*****F1* ********* 
♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 

♦OUTPUT MESSAGE ♦ 

♦ E413I ♦ 

* * 
♦AZ1-E1+++ ************ 

AZ-E1,G5,K3, 
J5 ♦♦++ 



**** 
SllRETlH 

*****Q^********** 



RETURN CODE = 
X'14' 



***************** 



****jjl* ******** 

* * 

* RETURN ♦ 

* * 
*************** 



***** 32 ********** 
♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 

♦ OUTPUT HEADER ♦ 

♦ MSG E400I * 

♦ * 
***************** 



*****C2********** 
♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 
♦OUTPUT MESSAGE + 

♦ EU02I ♦ 

* * 
***************** 



SllOK . ♦. 

A3 ♦. 
.*REQ TO *. 
.♦BYPASS LINE+. NO 
> + .CONN SEQ = 00. ♦ >♦. 



*****q3********** 



************ 



****C3**+++++++ 

* * 

* RETURN ♦ 

* * 
*************** 



GOON . ♦ . 


S11CK01 . ♦. 




AU *. 


A5 ♦. 




. * *. 


. +REQ FOR*. 




. *IS SEQ CODE+. YES 


. * DISABLE, * 
>*. ENABLE, OR 


NO 


♦ . < 8 .♦ 


* 


♦. . ♦ . 


*. DIAL SEQ . * 


| 


♦ . . * 


♦ .= 01 . * 




♦. . ♦ 


*. . * 


V 


♦ NO 


* YfeS 


**** 






**** J 


* * 






*AZ1* 


* E2 * 






* J2 *-> 


* * 






* * J 


**** 






**** V 




V 


S11NONE .*. 




*****E4********** 


B5 ♦. 




♦IJZAD037 ♦ 


.♦ LINE *. 




*_*_*_*_*_*_*_*_* 


NO . * AUTOCALL * 




+ OUTPUT HEADER ♦ 


*. AND/OR 


* 


* MSG E400I * 


♦ .SWITCHED .* 




* * 


1 ♦. . ♦ 




***************** 


V ♦. .♦ 








***** * YES 








*AZ * 










♦ M* 










* * 










V 




V 


. ♦. 




***** C 4* ********* 


C5 ♦. 




♦IJZAD037 ♦ 


. ♦ ♦. 




*_*_*_*_*_*_*_*_* 


NO . +DIAL COUNT * 




♦OUTPUT MESSAGE ♦ 


*. > 20 


* 


♦ E403I ♦ 


1 *. .♦ 




* * 


♦. .♦ 




***************** 
1 


V ♦. .♦ 
***** * YES 




**** 


*AZ * 






* * 


♦ Al* 






L_>* Gl * 


* * 






* * 


* 






**** 










7 






*****D 5* ********* 




♦IJZAD037 


* 




*_*_*_*_*_*_*_*. 


-* 




♦ OUTPUT HEADER 


* 






♦ REG E400I 


* 



**** 

* * 

♦ E2 ♦ 



.♦ REQ FOR ♦ 

♦.SETMODE SDAI 

♦.SEQ = 02 .♦ 



*****F2 ********** 



♦SET UP NEXT CCW+ 
♦AS SETMODE SDAI+ 



***************** 



.♦IS SETMODE 
. PRESENT IN 
♦ . CDS 



. ♦ REQ FOR ♦. 

->♦. SETMODE SDAI I. 

♦.SEQ = 03 . ♦ 



*****p3********** 



♦SET UP NEXT CCW+ 
>♦ AS SETMODE ♦ 

♦ SDAII ♦ 

* * 
***************** 



♦SET UP NEXT CCW+ 


YES. 


♦ IS 


SETMODE 


♦ AS SADXX FOR ♦ 


*. 


PRESENT IN 


♦ 2702 ♦ 


( 


*. 


CDS 


* * 


1 


* 


, * 


***************** 


V 




♦. . ♦ 


1 


**** 




♦ NO 


f **** 


* * 




1 


* * 


♦ B5 ♦ 






!•->♦ B5 ♦ 


* * 




V 


* * 


**** 




**** 


**** 






* * 

* H2 ♦ 

* * 
**** 



***************** 



V 

***** £5 ********** 

♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

♦OUTPUT MESSAGE ♦ 

♦ EU04I ♦ 

* * 
***************** 

**** 

* * 
L_>* Gl * 

* * 
**** 



**** 

* * 

* G5 *— n 

* * J 
**** V 

. * 
G5 



* H2 ♦-> 

* * 
**** 



***** H 2 ********** 
♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 



***************** 



*****j2* ********* 
♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 

♦OUTPUT MESSAGE ♦ 

♦ EU01I ♦ 

* * 
***************** 



->♦ Gl ♦ 
* * 
**** 



j **** 

♦AZ1 

«-->♦ E2 



2 
* * 
**** 



*****H3********** 



***************** 



**** 

♦ AZ ♦ 

•>♦ C2 ♦ 



**** 
♦AZ1 + 

♦ C5 *—, 

* * J 
**** V 



*. INTERVENTION 
*. REQ .* 



***** 
*AZ1* 
* E2* 



NO .* *. Y 
+.BUS OUT CHECK. *- 
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**** 

* * 

* G5 * 

* * 
**** 



***** 

♦ AZ1 + 

* C4* 



Chart AZ. IJZAD011: TP Line Connection (Section 2 of 3) 



* C5 * — n 

:...* 1 

1G00D V 



* B5 *—-> 

:...* 1 

1ENBLE V 



* * I 
**** I 

1EROUT V 



*SET UP 3RD CCW 

* AS DIAL AND 

* INSERT NUMBER 

**************** 



Bl *. 

. * *. 

. * * 

. DIAL COUNT 



AUTOCALL 

FEATURE 

. PRESENT 



*****q1* ********* 

♦IJZAD037 * 

*_*_*_*_*_*_*_*_* 

* OUTPUT HEADER * 

* MSG E400I * 

* * 
***************** 



*****E1* ********* 

+IJZAD037 * 
*_*_*_*_*_*_*_*_* 

♦OUTPUT MESSAGE * 

* E401I * 

* * 
***************** 



**** 

*AY * 

■>♦ Gl * 



* H3 *—, 

* * 

**** 
1GO V 



♦BUILD CCB WITH ♦ 
>* SENSE FIELD * 



********* 



**D2******* 

♦SET BITS TO* 

♦INDICATE USER+ 

♦ERROR RECOVERY ♦ 

* * 

* * 

*********** 



*****E2****** 



♦SET RETRY COUNT* 


* TO 2 * 


* * 


* * 


***************** 


**** 




♦ AZ1 + 




♦ E4 ♦-> 




+ F2 ♦ 




♦ *** 




S11RETRY V 


*****P2 ********** 


* * 


* CALCULATE 128 ♦ 


* SEC BCT LOOP ♦ 


♦ COl 


JNT * 



********** 



NO .* OPERATOR ♦. 
+.CALL REQUIRED. 



*****£J2 ********** 

♦ * 

♦ ADD 4 MIN TO ♦ 

♦ BCT LOOP ♦ 



*************** 



S11NOPER V 

*****j2**** ****** 



♦ ISSUE EXCP 



***************** 



NO . ♦ WORLD TRADED. 

♦. ANSWER TONE . ♦ 

♦.REQUIRED .♦ 



***** b3 ********** 

♦ * 

♦ CHAIN WRITE ♦ 

♦ CCWS TO CCW * 

♦ CHAIN ♦ 



* SET UP ENABLE * 

* CCW * 

* * 

* * 
***************** 

**** 

* * 

* BU * — n 

* * J 
**** v 

B4 



. ♦. 



******* 



******** 



.* LINE ♦. NO 

->♦. SWITCHED W/O .* 

♦. AUTO CALL. ♦ 



**** 

* * 

* C2 * 

* i 
**** 



S11NOTEL 

*****D3*** 

♦IJZAD037 



*_*_*_*_*_*_* 



*****cu ********** 
♦IJZAD037 ♦ 
+_*_*_*_*_*_*_*_* 

♦ OUTPUT HEADER ♦ 

♦ MESSAGE E400I ♦ 

♦ * 
***************** 



D4 *. 
.♦ DOES *. 
NO . ^CDS INCLUDE*. 

*. TELEPHONE . 

♦. NUMBER . ♦ 



V 
*****E4* ********* 
♦IJZAD037 + 
*_*_*_*_*_*_*_*_* 

♦OUTPUT MESSAGE ♦ 

♦ EU06I * 

* * 
***************** 



**** 

* * 

* G3 *—, 

* * I 
**** V 



**F4******* 

♦ SET BIT ♦ 

♦ INDICATING * 
♦OPER CALL REQ +* 

* HDR OUT * 

* * 
*********** 

I .... 

* * 
L->* C2 ♦ 

* * 
**** 



NO . *LOOP COUNT ♦. 
♦. EXPIRED 



*****H3 ********** 



♦ISSUE SVC 25 TO* 
+ PURGE ♦ 



***************** 



. ♦ OPERATOR * . NO 
♦ .CALL REQUIRED. ♦ 



S11TOUT 

***** j4 ********** 

♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 
>* OUTPUT HDR ♦- 

* MESSAGE E400I * 

* * 
***************** 



*. COMPLETE .♦ -, 

I ••••....-■• 1 



***** K 3* ********* 
♦IJZAD037 ♦ 
*-*-*-*-*-*-*-*-* 
♦OUTPUT MESSAGE ♦ 

♦ E407I ♦ 

* * 
***************** 



***** 

♦ AZ1* 

* Al* 



+ MOVE CSW TO ♦ 
♦ E409I MESSAGE ♦ 



***************** 



B5 *. 
. * ♦. 

♦UNIT CHECK 
IN STATUS 



*****C5********** 



***************** 



*****E5* ********* 

*IJZAD037 * 
*_*_*_*_*_*_*_*_* 

♦OUTPUT MESSAGE ♦ 

♦ E400I * 

* * 
***************** 



S11NOHD V 

*****P5********** 

♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 

♦OUTPUT MESSAGE * 

* E409I * 

* + 
***************** 



*****G5********** 
♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 
♦OUTPUT MESSAGE * 
+ E412I * 
* ♦ 

***************** 



**** 

*AY * 

->♦ Gl ♦ 



*****j5* ********* 

♦IJZAD037 ♦ 
*_*_*_*_*_*_*_*_* 

->* OUTPUT MESSAGE * 

* E410I * 

* * 
***************** 



**** 
♦ AY ♦ 
->♦ Gl 
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***** 

♦AY ♦ 
* Gl* 



Chart AZ1. IJZAD011: TP Line Connection (Section 3 of 3) 



* K2 * — 

* * 
**** 

S11CKERR . 



.*SIO CC = 3 *. 

*. <44io iu . =• 

* . STATUS ) . * 



Bl *. 
.♦IS ♦ . 

* HEADER * 
ALREADY OUT 

♦ . (OP CALL . ♦ 

♦.REG) . * 



NO 



. * CHANNEL 
->*. ERROR IN 
*. STATUS 



: *"1, 



***** 

♦AZ * 

* A5* 

* * 



*****£!********** 


C2 


*. 








♦IJZAD037 * 


. ♦ ♦. 






*_*_*_*_*_*_*_*_* 


.♦ CHAINING, ♦ 
♦.PROG, OR PROT 


YES 




* OUTPUT HEADER * 






* MSG EU00I * 


♦. CHECK .♦ 


1 




* * 


*, , * 






***************** 


♦. . ♦ 


1 








+ NO 


***** 












♦AZ + 


**** 


> 








+ A5+ 
* * 












♦ D3 * — n 












* * 1 






V 




**** 


S11MSG2 V 


• ♦. 




S11EXGD2 V 


*****D1 ********** 


D2 ♦. 




*****j)3 ********** 


♦IJZAD037 * 


. ♦ ♦. 




* * 


*_*_*_*_*_*_*_*_* 


. ♦ UNIT ♦ 


WO 


♦ CLEAR WORK ♦ 


♦OUTPUT MESSAGE ♦ 


♦. EXCEPTION 


*___ 


♦AREAS AND FLAGS ♦ 


♦ EU08I ♦ 


♦. . ♦ 


1 


* * 


+ * 


♦. . ♦ 


1 


* * 


***************** 


♦. . ♦ 


^ 


***************** 






♦ YES 


**** 










**** I 


* * 










♦ AY * 


♦ H2 ♦ 










♦ J4 ♦ -> 


* * 










♦ G5 ♦ 


**** 










**** v 








V 


S11COUNT . ♦. 




V 


**£!******* 


E2 ♦. 




***** £3 ********** 


* * 


. ♦ ♦. 




* * 


♦ RESET ♦ 


. +RETRY COUNT+ 


YES 


+ RETURN CODE = ♦ 


♦ OPERATOR CALL ♦ 


♦. EXPIRED 


* .. 


* 00 ♦ 


♦ REQ BIT ♦ 


♦. . ♦ 


] 


* * 


* * 


♦. . ♦ 




* * 


*********** 


♦. . ♦ 


^ 


***************** 


1 


♦ NO 


***** 






**** 






♦AZ ♦ 






♦ AY ♦ 






♦ A5+ 






L_>* Gl ♦ 






* * 






* * 






* 






**** 














V 




V 




*****F2 ********** 


**F3******* 




* 


* 


* * 




♦DECREMENT LOOP 


* 


♦SET TLNCINUK ♦ 




♦ COUNT 


* 


♦BIT + LINE CONN+ 






* 




* 


♦ PERF 


BIT ♦ 



***************** 

1**** 
♦ AZ ♦ 
->♦ F2 ♦ 



**** 

♦ H2 ♦- 



YES . ♦ ♦ . 
*.2ND EXCP REQD.+ 



**** 

* * 

* D3 ♦ 

* * 
**** 



*********** 



**G3++++**+ 



♦RESET CDS BIT+ 
* REQ CONN ♦ 



*********** 



♦ ♦♦♦^♦♦♦♦♦♦♦♦ + 

* * 

* RETURN ♦ 

* * 
*************** 



->♦. EQUIP CHECK . +- 



*. 


. * 


♦ NO 


. ♦. 


B4 ♦. 
. ♦ ♦ 


. * 


♦ . LOST DATA 
*. 


♦. . ♦ 


♦ . . ♦ 


♦ YES 
**** 


♦AY ♦ 

♦ K4 ♦-> 

* * 




**** v 


S11DIALQ .♦. 



♦. DIAL COMMAND . ♦- 



*•.. ..■* 1 %. ..•* 

♦. . ♦ V ♦. . ♦ V 

" * YhS ***** 

I **** * AY * 
* ** J4* 
L_>* E2 ♦ ♦ ♦ 



♦ YES ***** 
**** *£Z * 
* ** A5+ 
->* E2 ♦ ♦ + 



*****j2 ********** 



***************** 



**** 

♦ AY ♦ 

•>♦ B5 ♦ 
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Chart BA, 



IJZA.DO10: 



REI Nucleus (Section 1 of 4) 



*BB 



* U5 *— 

* * 
**** 

J10UNEX 



* U5 * — -> 

* * I 
**♦♦ \> 



****A1 ********* 
IJZADO10 * 



A2 



CW . * n 

..*•* 1 



**** 


* 


*BC * 


* 


* B2 *-> 


* 


* * 




**** 




J10RDS V 


*****£l2 + **** + **** 


* * 


* FORCE TO READ * 


* STA r 


rus * 



**** 

* 

* AU 



HIO ISSUED .* >*. READ SKIP 



**** 

*BB * 

* J4 *-> 



***** 

*BB * 
* A2* 

* * 



. ENDING STATUS. * -> 

*. .* V 



**** 




*BB 






* A 


* Dl *-> 




* 






* 


**** v 




uorm . *. 




Dl *. 




. * *. 




. * WRITE * 


. YES 


*. oper; 


vtion 


. * 



*. OPERATION . * n 

•■.. ..•* 

* . . * V 



.* READ *. YES 
*. OPERATION . * -. 



♦NO **** 

* * 

* M * 



*************** 



**C2******* 



*********** 



**D2******* 

* * 

* SET REI OP * 
♦SWITCH TO READ * 

* SKIP * 

* * 
*********** 



* H3 

* 
*♦♦* 



. ♦ ENABLE +. YES 
SPECIAL .♦ 



E10ENS 

**G2++***+* 
♦SET REI OP + 

♦ SWITCH TO 
>* PREVIOUS 

* COMMAND 

+ ♦ 

*********** 



***** 
+BB * 
* E5* 



****jl* ******** 
* 
RETURN ♦ 
* 

*************** 



WRITE CCW .*< — t 

. * 
* . . * 
*. . * 
♦ YES 

I 

**** 

* * 

* E4 * 

* * 
**** 



*.CCW SPECIFIED. + •, 

*. . * V 



. * FORCE TO * . NO 
*. READ STATUS .* 



* 


**** 




K4 * 


* * 




* 


* C5 *-> 




**** 


* * 
**** 






V 




♦♦C5****+** 



**** 

* + 

+ D3 *— , 

* ♦ 1 
* + ** v 



TUS .** t 



**** 

* * 

* C5 * 



UNIT *. YES 
EXCEPTION . * t 



**** 

* 

* KU 



* SET REI GP * 
♦SWITCH TO WRITE* 

* INITIAL * 
* * 

*********** 



**** 

* * 

* H3 * 

* * 
♦ *** 



E10WT 
YES 



E3 *. 

*. 

* 
♦.READ WAITING 



E10REDI V 

**P3******* 



* SET WRITE 
* COMPLETE BIT 



*********** 



*+E4******* 

* * 

* SET REI OP ♦ 
♦SWITCH TO WRITE* 

* CIRCLE C * 

♦ ♦ 
*********** 



♦*F4***+++* 



*********** 



♦ SET REI OP ♦ 
♦SWITCH TO READ ♦ 

♦ REPEAT ♦ 
♦ ♦ 

*********** 



♦ ♦♦♦ 

♦ ♦ 

♦ H3 ♦ 

♦ ♦ 

+ ♦♦♦ 



+ SET REI OP ♦ 

♦SWITCH TO READ ♦ 

♦ INITIAL ♦ 

* * 

*********** 



**♦* 

♦ BB ♦ 

♦ F2 ♦-> 



**** 
E10REEX 

**H3******* 



**** 

♦ ♦ 

♦ H3 ♦ 

♦ ♦ 

♦ **♦ 

♦ ♦♦♦ 

♦ + 

♦ EH * 
+ + 

**** 



**** 

* * 

♦ H3 ♦ 



*********** 



**j3******* 

* * 

MODIFY CCB 

* * 
*********** 



****K3********* 

* ♦ 

* RETURN ♦ 

* ♦ 
*************** 



*********** 



**** 
E10OKNXT 

**K4++**+++ 

♦ SET REI OP + 
♦SWITCH TO 'WRITE* 

* INITIAL + 

*********** 



*****j5* ********* 



♦SUBTRACT 1 FROM+ 
+ ERROR COUNT ♦ 



***************** 



Charts 85 



Chart BB. IJZADO10: REI Nucleus (Section 2 of 4) 



**** 

*BA * 
* A5 



: ci .--i 

**** v 



E10LSTRC 

**C1******* 



*********** 



PREVIOUS * 
RECORD 
. PROCESSED. * 



E10RIN1 

**B3******* 

* * 

* SET REI OP * 
♦SWITCH TO READ 

* INITIAL * 

* * 
*********** 



** C 3******* 



* MOVE BUFFER * 



******** 



******** 



E10RIN2 V 

**D2******* 
* * 

* SET REI OP * 
♦SWITCH TO READ 

* CONTINUE * 



. * ' READ * . NO 
♦ .WAITING' BIT .♦ -, 



V 
***** 

♦ BA ♦ 

♦ H3+ 



**F2 ******* 
♦RESET READ ♦ 

♦ WAITING ♦ 
♦SWITCH AND POST* 

* WRITE DONE ♦ 
* * 

*********** 



**** 
♦ BA ♦ 
->♦ H3 



*********** 



***B4********** 

* 

* 

SAVE CCW + 

* 

*************** 



****D4+ ********* 



***************** 



♦ADD 1 TO ERROR 
♦ COUNT 



***************** 



8 6 DOS OLTEP Logic 



**** 

E10REEX1 

**j3******* 



*********** 



E10RETR 

V 
****K3********* 

* * 

* RETURN ♦ 

* * 
*************** 



♦ B5 ♦ 

* * 
**** 



B5 


*. 




. * * 




. ♦ 


*. YES 


♦. UNIT CHECK 


. ♦ -, 




* 


*. * 




*. . * 


V 


* NO 


***** 






*BC ♦ 






* A1 + 






* * 






* 


V 




. *. 




C5 ♦. 




. * ♦ 




YES . * CHAINING 


*. 


*. CHECK 


. * 



**** 
* 
♦ J3 

**** 



.* UNIT +. 


YES 


♦. EXCEPTION . 


* , 


*. . ♦ 


1 


*. . * 




*. . ♦ 


V 


♦ NO 


***** 


**** 




♦ BA ♦ 


♦ BA ♦ 




♦ A2 + 


* HI *-> 




* * 


* * 




* 


**** 






J10SNO V 




** E 5******* 




* * 




* SET' SHOULD * 


♦NOT OCCUR' BIT 


* 



*********** 



.♦ READ SKIP 


*. 


YES 


ISSUED 




* n 


♦. 


* 


] 


♦. . ♦ 




1 


♦. . ♦ 




V 


♦ NO 

I 




**** 

♦ BA 

* B5 


V 




* * 


**** 




* 


* * 






♦ B5 ♦ 






* * 






**** 







********** 



V 
**G5******* 

* SET' READ ♦ 

* SUCCESSFUL' 
* AND 'WRITE 

* SUCCESSFUL' 

* BITS ♦ 



** H 5******* 

* * 

♦ RESET RE * 
♦OPTION AND REI + 

* ACTIVE ♦ 

* * 
*********** 



****j5********* 

* * 

* RETURN + 

* * 
*************** 



Chart BC. IJZADO10: REI Nucleus (Section 3 of U) 



**** 

* fJb * — 



LOST DATA 



TIME OUT 



. INTERVENTION . 
♦.REQUIRED . * 



Gl *. 

BUS OUT 



V 

HI* '*. 
. * *. 

*. DATA CHECK 



YES 



B2 
->*! HIO ISSUED 



. HIO ISSUED . * t 

*. . * V 



***** 

*BA * 

* B2* 

* * 



J10RDSK 

**C3******* 
* * 

* SET REI OP * 
>*SWITCH TO READ 

* SKIP * 



*********** 



* D2 *-> 

* * 
**** 

J10WRC \ 

**D2******* 

* * 

* SET REI OP * 
♦SWITCH TO WRITE*- 

* CONTINUE * 

* * 
*********** 



J10TIMOT .*. .*. 

E2 *. E3 *. 

. * ♦. . * *. 

.* ENABLE OR ♦. NO .* *. YES 

>*. DISABLE .* >*. DATA READ . * t 

*. . * ♦. • * 

*. . * ♦. . * 

♦. . ♦ *. . * V 

* YES * NO **** 

I I ***** * 

I > * * H3 * 

L_>* R4 * * 
* ***** 
**** 

J10INTRQ 

*****P2********** **p3******* 

* * *SET REI OP * 

* SAVE CURRENT * * SWITCH TO * 

>* OPERATION * >*ENABLE SPECIAL * 

* * * * 

* * * * 
***************** *********** 



->*. CCW CHAINED .*- 

*. . * 

*. , * 

*. . * 

* NO 

I **** 

* * 
L->* J2 * 

* * 
**** 

. *. 

H2 *. 

. * *. 

. * *. Y 

->*. OVERRUN .*- 



*****G3 ********** 

* * 

* MOVE NEXT * 
->* NON-TIC CCW *- 

* ADDR INTO CCB * 

* * 
***************** 



* H3 *—■ , 

OOVRRN V 



* SET REI OP * 
->*SWITCH TO READ *- 

* REPEAT * 
* * 

*********** 



**** 

* * 

* J2 *-> 



NO 



J10DTACK . *. 






J10 RETRY \ 


/ 




j;l *. 
. * *. 






*****J2** ******** 
* * 




* WRITE 


*, 


NO 


* MOVE FAILING * 


* 


OPERATION 




*__ __ 


* CCW ADDR INTO * 






* 


1 


* CCB * 




*. .* 






* * 




*. . * 




V 


***************** 




* YES 




**** 












* * 












* H3 * 












* * 












**** 






7 










. *. 






J10WRTI 




Kl *. 






**K2******* 




. * * 






* * 




* 


* 


NO 


* SET REI OP * 














*. 




* 




* INI n 


riAL * 



*********** 



**** 

* * 

* KU *-> 

* * 
**** 

**K4******* 

* * 

* MODIFY CCB * 
->*BASED ON REI OP*- 

* * 

* * 
*********** 



****K5*** ****** 

* * 
->* RETURN * 

* * 
*************** 
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Chart BD. IJZADO10: REI Nucleus (Section 4 of 4) 



****A2********* 

* * 

* READ * 

* * 
*************** 



U10READ 

*****B2** ******** 



****A4********* 
* 

* WRITE 
* 

*************** 



GET INPUT 
PARAMETERS 



***************** 



U10WAIT 

*****C2********** 



♦WAIT FOR REMOTE* 



***************** 
**** 



**** 
R10WAIT V 

*****CU ********** 

* * 

* WAIT FOR * 
♦PREVIOUS WRITE * 



***************** 



***************** 



D2 *. 
. * *. 

, * 
*. PERM ERROR 



****£)3********* 

* * 
->* ERROR RETURN * 

* * 
*************** 



PERMANENT *. 
I/O ERROR . 



U10ERETN 

*****E3 ********** 

* * 

* GET ERROR * 
>* MESSAGE * 

. * PARAMETERS * 



***************** 



*****££j********** 



***************** 



U10L1 

*****P2********** 



***************** 



G2 *. 

. * *. 

* 
LENGTH = 



♦TRANSLATE INPUT* 
♦AND MOVE IT TO ♦ 
♦CALLER'S BUFFER+ 
* * 

***************** 



U10CONT1 

**j2******* 

♦ RESET ♦ 

♦ REMOTE INT 
♦ AND READ 

♦ COMPLETE 

♦ FLAGS ♦ 
*********** 



****K2********* 

* * 

* RETURN * 

* * 
*************** 



****F3+* ******* 

* * 

* RETURN * 

* * 
*************** 



R10GD1 

***G3*********** 

* WRITE ERROR * 
MESSAGE TO <- 
* REMOTE * 

**************** 



**F4******* 

* * 

* RESET WRITE * 

♦COMPLETED FLAG ♦ 



*********** 



LOST DATA 



**** 

* * 

* CH * 

* * 
**** 



R10WRIT V 

***H4 *********** 



**************** 



R10RETN 

V 
****J4********* 

* * 

* RETURN * 

* * 
*************** 
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Chart BE. IJZAD016: GETCONFG (Section 1 of 2 ) 



A16RC4 

*****B2 ****** 



♦SET RETURN CODE* 
* TO X' 04* * 



****A3******** 
* IJZAD016 
************** 



NO .* CORRECT *. 
+. MACRO LEVEL . * 



* LOAD PRIMARY * 
♦DEVICE ADDRESS *<- 



***************** 



**** 

*BE1* 
* HI *-> 
*G2 ♦ 
**** 
A16EXIT 



****C2********* 

* RETURN TO * 

* CALLER * 

* * 
*************** 



A16A .*. 

D2 *. 
. + ♦. 
NO . * SYMBOLIC * . 
*. NAME IN SCT . *<- 



****** 

**** 
* El * 



************* 



♦SET DEV PHASE* 
* LOCATED BIT ♦ 



*********** 



* CONVERT PHASE * 

* NUMBER * 

* * 
***************** 



* Jl *-> 



V 



**** 
A16GCDS 

*****jl ********** 
♦A16COMP BA1* 
*_*_*_*_*_*_*_*_* 

* * 

* GET CDS PHASE * 

* *• 
***************** 

1**** 
*BE1* 
->* Bl ♦ 



* PICK UP 

+ SYMBOLIC NAME 

* FROM SCT 
* 
**************** 



A16RESTR 

*****P2 ********** 

* * 

* RESTORE PHASE ♦ 
>* NUMBER TO * 

* X'000' * 



***************** 



*BE1 
D4 



.♦DOES LOCAL *. NO 

*. CDS FILE . * 

*. EXIST .* 



*D5 * I 
**** | 

*****C4+** 
* 

♦ SET RETUR-. 

♦ TO X' 0C 1 * t 

: 

***************** v 



*****£({********** 
* * 

♦SET RETURN CODE* 



**** 
C2 



-*. CDSADR = 



E3 
. * 
. * 
->*. CUST CE CDS 



.♦IS SYMBOLIC*. 
->*. NAME 

*. SPECIFIED. * 



A160UT 

*****E4* ********* 



CUST CE CDS .* n ♦ SYMBOLIC NAME * 

♦. . * * * 

♦. . * * * 

*. .* v ***************** 



***************** 



. * IS DEVICE *. NO 
. DECODE . CALLER. ♦— 



YES ♦**♦ 
***** * 

* ♦ El ♦ 
->* Jl * * 

* ***** 
**** 



*****G3********** 



♦REPLACE 'IJZAC + 
♦ WITH ' IJZAD' *- 



♦ G4 *-> 



**** 
A16PTR 

*****G4* ********* 

*A16C0MP BA1* 
*-*-*-*-*-*-*-*-* 



->* 



***************** 



* GET CDS PHASE * 

* * 
***************** 

**** 

* * 

* H4 *-> 

* * 
**** 

. ♦. 
H4 *. 
. * *. 
.♦CORRECT CDS*. NO 
*. ENTRY FOUND . * 



* YES 

t**** 
♦BE1* 
->* Fl * 



A16NE 

*****H5 ********** 

* * 
♦UPDATE POINTER * 

>* TO NEXT CDS * 

♦ ENTRY ♦ 



***************** 



*****j5* ********* 

*A16 AGAIN BA1* 
*_*_*_*_*_*_*_*-* 

* CHECK FOR * 

* 'NEXT* AND ♦ 

* 'LAST' * 
***************** 
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Chart BE1. IJZAD016: GETCONFG (Section 2 of 2) 



♦ BE * 

♦ Jl *—, 

♦ * 1 




Al 6 EQUAL . *. 

Bl ♦. 
. ♦ ♦. 


* 


.♦CORRECT CDS+. NO 

+. ENTRY FOUND . ♦ 

♦ . . ♦ 


♦UPDATE POINTER 

>* TO NEXT CDS 

* ENTRY 



A160K V 

*****Cl* ********* 

♦IJZAD041 * 
*_*-*_*-*_*_*_*_* 
+ CONVERT PHASE ♦ 

♦ NUMBER * 

* * 
***************** 



. ♦ IS DEVICE ♦. YES 
.DECODE CALLER. ♦ 



***************** 



***************** 



**** 

♦BE ♦ 
♦ HU 



**** 

A16MCDS 

*****pj[********** 



*****D2 ********** 

* * 

♦ PUT PHASE ♦ 
>♦ NUMBER INTO ♦ 

♦ DEVICE TABLE ♦ 

* * 
***************** 



****A3********* 

♦ A16COMP ♦ 

* * 
*************** 



****Q3********* 

* * 

* A16AGAIN + 

* * 
*************** 



*****A4 ********** 

* * 

* * 

->* GET CDS PHASE ♦ 

* * 

* * 
***************** 

**** 

* * 

* BU ♦-> 

* * 
**** 

*****g4********** 
♦SVCU ♦ 

*_*_*_*_*_*_*_*_* 

* * 
♦LOAD CDS PHASE + 

* * 
***************** 



***************** 



NO . ♦ IS 'LAST' 
*. FOUND 



♦ YES 
I **** 

♦BE ♦ 
L_>* c4 ♦ 



***** 

♦ BE * 

♦ C4 + 



V 
****E3********* 

* * 
♦BACK TO CALLER ♦ 

* * 
*************** 



*****E5********** 



♦ UPDATE PHASE 

♦ NUMBER 



***************** 

1**** 
* * 
->♦ BU ♦ 
* * 
**** 



***************** 



Gl ♦. 

. ♦ ♦. 

* * 

DOES IT FIT 



♦SET RETURN CODE+ 
>♦ TO X' 08' ♦ 



*****H1********** 



***************** 



**** 

♦ BE ♦ 

->♦ C2 ♦ 



***************** 



**** 

♦ BE ♦ 

->♦ C2 ♦ 



90 DOS OLTEP Logic 



Chart BF # 



IJZAJD021: 



GRAB (Section 1 of 2 ) 



****A2* ******** 

* * 

* IJZAD021 * 

* * 
*************** 



* Dl * — -J 

**** v 



. IS IT GRABBED. * -, 

*. .* V 



**** 

* * 

* C2 *-> 



**** 
S21RETCU 

*****C2 ♦♦♦♦♦*♦**♦ 



***************** 
**** 



****£)2********* 

* * 

* RETURN *<- 

* * 
*************** 



. TABLE EMPTY .* -. 



.♦THERE ONLY *. NO 

♦.ONE ENTRY IN .* 

* . TABLE . * 



♦SET POINTER TO * 
>* SECONDARY * 
♦DEVICE POINTER ♦ 
* * 

***************** 



*****£{;********** 



***************** 



*****D3********** 



***************** 



* NO 


**** 


**** 






* * 




* F3 


* El *_> 




* 


* * 




**** 


**** v 




. *• 




El 


*. 





. + J.J3 V/UjJLJJ *. IHb 

*.. BIT OFF . * n 

*. .* V 



***************** 



A21INCRE 

*****£(j********** 



***************** 





♦NO ♦♦♦♦ 










1 * * 








* F3 * 








* * 
















V 
. *. 


S21CONT .*. 






Fl *. 


F2 *. 






. * *. 


. * *. 






. * IS IT *. NO 


.* IS CDS 


* 


. YES 


*. PRIMARY .* 


- — >*. AVAILABLE 




. * . 


*. DEVICE . * 


*. 


* 


I 


*. . * 


*. . * 




1 


*. . * 


♦. . ♦ 




V 


* YES 


♦ NO 




**** 

* i 

* H2 * 






















* i 












**** 


V 


V 






. *. 


. ♦. 






Gl ♦. 


G2 ♦. 






. * *. 


. * *, 






.♦ IS IT ♦. YES 


.* IS SOSP 


* 


NO 


♦ . SECONDARY . ♦ -. 


*. ACTIVE 




* n 


+ . DEVICE .♦ 


*. 


* 


I 


*. .♦ 1 


*. . * 




J 


*. .♦ V 


*. . ♦ 




V 


♦ NO **** 


* YES 




**** 


**** 


* * 


**** 1 




* i 


* * 


♦ F3 * 


* * 




♦ F3 i 


* HI ♦-> 


* * 


♦ H2 *-> 




* i 


* * 


**** 


* * 




**** 


**** 




**** v 






S21ETABL V 


. *. 






*****H1 ********** 


H2 ♦. 






* * 


. * *. 






♦SET RETURN CODE* 


. * IS NEXT 


* 


YES 


+ TO X'08' ♦ 


*. DEVICE 




* 1 


* 


* 


+ .REQUI 


:sted. 


* 





. ♦ HAS WHOLE ♦. NO 

♦. TABLE BEEN .♦ 

♦ . SEARCHED . * 



* YES 



I **** 

* * 
L_>* HI * 



->* HI 
* * 
**** 

. *. 
*****G3********** Q4 * # 

* * . * *. 
♦SET POINTER TO * YES .* ♦. 

♦ • DEV TABLE *< + .END OF TABLE .* 

* * *. . * 

♦ ♦ *. .** 
***************** * # # * 



***************** 

I .... 

* * 
L_>* D2 ♦ 

* * 
**** 



* NO ***** 

I**** *bg ♦ 
♦BG ♦ ♦ E4* 
_>* Al ♦ * * 



. SOSP ACTIVE .* n 

*. .* v 



NO **** 
***** * 

* * El ♦ 
->♦ Dl ♦ * 

* ***** 
**** 



**** 
*BG ♦ 



*****D5********** 



***************** 



*****E5********** 

* * 

* UPDATE ♦ 

* SECONDARY ♦ 
♦DEVICE POINTER * 

* * 
***************** 



*****P5* ********* 
♦MOVE DEVICE CDS+ 

♦ INFORMATION ♦ 

♦ INTO CALLERS ♦ 

♦ AREA ♦ 

♦ * 
***************** 



*****G5 ********** 



***************** 

**** 

* * 
I~>* D2 * 

* * 
**** 
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Chart BG. IJZAD021: GRAB (Section 2 of 2) 



**** 

*BF * 
* H2 



Al *. 

. * IS ♦. 

* DIFFERENT * 

CHANNEL REQ 



*****B1 ********** 



. * IS SAME *. 
->*. CHANNEL 

♦.REQUESTED.* 



S21FXDCU .*. 

A3 *. 
.♦IS ♦. 
NO . + DIFFERENT ♦ 

♦ >♦. CONTROL UNIT 

♦. REQ .♦ 



*****B2 ********** 



LOAD R9 WITH 
S21FXDCU 



*****33********** 



. CONTROL UNIT . ♦ -. 

♦. REQ .♦ 



**** 

* * 

* E2 ♦ 

* * 
**** 



***** 514 ********** 



***************** 



***** C 1** ******** 



***************** 



***** C 2 ********** 



***************** 



***** C 3********** 



***************** 



*****C4* ********* 



***************** 



***************** 



***************** 



*****£)! ********** 


*****D2 ********** 


*****D3******** 


* * 


* * 


* 


♦ LOAD REG. 15 ♦ 


* LOAD R15 WITH ♦ 


♦ LOAD R15 WITH 


♦ WITH MASK ♦ 


* MASK ♦ 


* MASK 


* * 


j * * 


1 * 


* * 


1 * * 


* 


***************** 


V ***************** 


v *************** 






**** 


**** 


**** 




* ***** 


* * 


* * 




* El ♦ ♦ 


♦ El ♦ 


* El ♦-> 




♦ ♦ E2 ♦— n 
***** * 

**** V 


* * 


* * 




**** 


**** 






FTEST V 


S21FXDDV .♦. 


S21FXDV . ♦. 


*****El* ********* 


E2 ♦. 


E3 ♦. 


* * 


. ♦ ♦. 


. * ♦. 


♦PUT DEV ADDR IN+ 


.♦ IS DEVICE ♦. NO 


. +IS SAME DEV+ 


♦ REG. 3 ♦ 


♦. ADDRESS .♦ 


>♦. ADDR REQ 


* 


* 


♦ .REQUESTED. ♦ 


♦. . * 



***************** 



*****£){|********** 

* * 

♦ LOAD R15 WITH ♦ 
-♦ MASK ♦ 



***************** 



***+*Ql**** ****** 



*********** 



REG. 3 = 
REG. 6 



****J1********* 
♦BRANCH TO ADDR ♦ 

♦ Rll ♦ 

* * 
*************** 



*****P2 ********** 



LOAD R9 WITH 
S21STRT 



***************** 



*****G2 ********** 



♦ LOAD Rll WITH ♦ 

♦ S21CLASS ♦ 



***************** 



*****U2 ********** 



LOAD R15 WITH 
MASK 



***************** 



1**** 
* * 
->♦ El * 



****j2********* 

♦BRANCH TO ADDR ♦ 

>♦ R9 ♦ 

* * 

*************** 



*****P3********** 



♦ LOAD R9 WITH 

♦ S21CLASS 



***************** 



*****Q3** ******** 



♦ LOAD Rll WITH ♦ 

♦ S21STRT ♦ 



***************** 



*****H3* ********* 



♦ LOAD R15 WITH ♦ 

♦ MASK ♦ 



***************** 

**** 

* * 
->+ El ♦ 

* * 
**** 

*****j3********** 

♦IJZAD056 ♦ 
*_*_*_*_*_*_*_*_* 

♦DATA PROTECTION ♦<- 

♦ GENERAL ♦ 

* * 
***************** 





* **** 








♦ El +BF ♦ 






* * H2 *—-, 
***** * 

**** V 














S21CLASS .♦. 






E4 ♦. 






. ♦ *. 




NO 


.♦ IS CLASS 


♦ . NO 




>+. SPECIFIED 






*. 


* 




♦. . ♦ 






+ . . ♦ 






3 


: YES 






1 


' 






. ♦. 






F4 ♦. 






, * *. 






NO .♦ IS CLASS 


*. 




*. EQUAL 


. * 




♦ . 


* 




1 ♦. .♦ 






V ♦. .♦ 






***** * YES 






*BF ♦ 








♦ F3 + 
* * 


< 












* 







♦ .IS TYPE EQUAL. + 



***** 
*BF ♦ 
* F3* 



NO .♦ HAS DATA 

♦. PROT BEEN 

♦ . DONE 



IS DEV OK 
TO GRAB 
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***** 

*BF ♦ 
* D5+ 



***** 

*BF * 
♦ F3+ 



Chart BH. IJZAD022: ALOCAT 



**B1******* 

* * 

* SET LOCAL * 

* PRINT ONLY ♦<- 

* SWITCH * 

* * 
*********** 



♦ .CDS SPECIFIED. ♦- 



*****£)]_********** 

* * 
♦GET DEV ADDRESS ♦ 

* FROM SECTION ♦ 
+ CTL TABLE + 

* * 
***************** 



♦LOAD REGS WITH ♦ 
♦DEV TABLE PTRS ♦ 



**************** 
**** 



. +DEV ADDR IN*. NO 

*. TAB = DEV . * 

♦ . REQUEST . ♦ 



* ' 
**** I 

* * 

* Jl ♦-> 

* * I 

**** V 



Jl *. 
. ♦ *. 

* 
DEV SHARED 



♦♦**A2*+*+****+ 

* * 

* IJZAD022 ♦ 

* * 
*************** 



YES . * MACRO LEVEL*. 
*.> OR EQ TO 2 . 



**** 

* * 

* B3 * 

* * 
**** 



**Q3******* 



*********** 



**** 

* 
G5 * 



**** 

* * 

* B4 * 

* * 
**** 



S22ASK V 

*****3lj********** 

♦IJZAD041 BU* 
*_*_*_*_*_*_*_*_* 

♦CONVERT DEVICE * 

* ADDRESS * 

* * 
***************** 



*****C4* ********* 
♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 
♦MESSAGE 04E120D* 

* * 
***************** 



S22PRIM 

*****Q2********** 

♦ * 

♦ GET DEV ADDR + 

♦ FROM CDS IN ♦ 
+ TEST SEC + 



1 

**** 

* * 

* F4 ♦ 



♦ . YES 
ANS = YES .♦ 



L- >♦ B3 * 

* * 
**** 

*****G2 ********** 

* * 
♦TURN OFF ALOCAT* 

->* BIT * 

* * 

* * 
***************** 

I**** 
* * 
->* F5 ♦ 

* * 
**** 

. *. 
H2 ♦. 



***** £3 ********** 
♦IJZAD037 BQ+ 
*-*-*-*-*-*-*-*-* 
_* *< 

♦MESSAGE 04E199D+ 
* * 

***************** 



*****P3 ********** 



***************** 

**** 

* * 
_>* Fl ♦ 

* * 
**** 



S22QN0 



REPLY = NO 



**** 

* * 

♦ F4 ♦-> 



**** 
S22RCTEN 

**F4******* 



*********** 

J 

**** 

* * 

* G5 ♦ 

* * 
**** 



.+ ♦. YES 

->♦. VALID DEVICE .♦ -, 

♦. .♦ 1 

I 



**** 

* * 

* B3 ♦ 

* * 
**** 



* NO **** 

I : J1 : 

**** **** 

* * 

* B3 ♦ 

* * 
**** 



**D5******* 

* * 
♦TURN OFF FPM ♦ 

>*BIT IN DEV TAB * 

♦ * 

* * 
*********** 

**** 

* * 

* E5 *-> 

* * 

**** 
S22ALOCT 

**E5******* 

* * 

♦ TURN ON * 

* ALOCAT BIT IN * 

♦ DEV TAB ♦ 

* * 
*********** 

**** 

* * 

* F5 ♦-> 

* * 
**** 

S22ZEROR 

**F5******* 



*********** 

**** 

* * 

* G5 *-> 

* * 

**** 

**Q5******* 

* * 

* RESET LOCAL * 
+ PRINT ONLY * 

* SWITCH * 

* * 
*********** 



****H5********* 

* * 

* RETURN * 

* * 
*************** 



* FILE * 

PROTECT MODE 

*. BIT ON .* 

♦ . . ♦ 


NO 


♦. . * 


V 


♦ YES 

1 

**** 


**** 
* 

♦ E5 
* 
**** 


* * 




* B4 ♦ 

* * 




**** 
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Chart BJ. IJZAD024: READD (Section 1 of 2) 



**** 

* * 

* A2 ♦ 



****Al*** ****** 

* * 

* IJZAD024 * 

* * 
*************** 



R2MEADD 

**B1******* 



->* . DATA ON TAPE . *- 



SET LOCAL 

PRINT ONLY 

SWITCH 

* * 

*********** 



**** 

* * 

* H5 * 

* * 
**** 



♦.DATA ON TAPE .*- 



***C2*********** 

* * 

UNLOAD TAPE 
* * 

**************** 

< 



***B3 *********** 

* * 

READ TAPE MARK 
* * 

**************** 



C3 *. 
. * *. 
* 

•NO* BIT ON 



*****q1********** 

* * 

* * 

* BUILD CCB * 

* * 

* * 
***************** 



El 


♦ . 




. * *. 




. * *. 


YES 


♦ .NEW DATA FILE. 


*— .. 


*. . * 


1 


*. . * 




*. . * 


V 


* NO 


**** 






* * 






* D2 * 






* * 


, 




**** 



M24MTNSG 
B24RMSG V 

*****Q2********** 

♦IJZAD037 BQ* 

*_*_*_*_*_*_*_*_* 

__>* * 

♦MESSAGE 04E23OD* 

* ♦ 
***************** 

*** 

***** 
D2 * * 

* E2 *-> 
**** * 

**** 
A24RETRC . 
E2 



D3 


*. 






*. 




. * 


*, 


NO 


. RESET 


ACTIVE . 


*___., 


*. 


. * 


1 


*. 


. * 


J 


*, 


. * 


V 




* YES 


***** 
*BK * 
* A2* 



*. BKSP ACTIVE 



->*.DATA ON TAPE .* > 



.♦FIRST TIME *. 
*. THIS OLT 



* YES 


**** 


**** 




* * 


* * 




* C3 * 


* Gl *-> 




* * 


* * 




**** 


**** ^ 


7 




C24HKDTA . 


K. 




Gl 


♦ . 




. * 


*. 




. * 


* 


YES 


*. IS IT 


TAPE 


* -l 





YES . *IS IT CARD *. 

*. READER .* 

*. . * 

*. .* 



**** 

* * 
->* H5 * 

* * 
**** 

**** 

REWIND TAPE 
* ♦ 

**************** 



*****P2 ********** 
♦IJZADOU1 BU* 
*_*_*_*_*_*_*_*-* 

* * 

* CONVERT INPUT * 

* * 
***************** 



.* ♦. YES 
♦ .BAD CHARACTERS 



**** 


i 


y YES 


* 


**** 




H5 * 


♦BK ♦ 




* 


+ F3 ♦-> 




**** 


* * 

**** 






C24ODE08 V 




**F3** 


***** 



.* DEVICE *. NO 
*. ASSIGNED .* 



* SET RETURN * 

* CODE TO X* 08' + 

* * 
* * 

*********** 

1**** 
* * 
->♦ JU ♦ 

* * 
**** 

*****Q3 ********** 

♦IJZAD037 BQ* 

*_*_*_*_*_*_*_*_* 

>* * 

♦MESSAGE 04E199D+ 

* * 
***************** 



L_>* E2 ♦ 
* * 
**** 
S31NOTAS 

*****H3 ********** 

♦IJZAD037 BQ+ 
*-*-*-*-*-*-*-*-* 



***FU+++ ******** 

* * 

REWIND TAPE 
* * 

**************** 



**** 

♦BK ♦ 

♦ Gl ♦-> 



.*1NFUT COUNT*. NO 
♦ . = .+ t 

*%. ..-' 1 

♦. . ♦ V 



♦ MESSAGE E237I ♦ 

* * 
***************** 



**** 

♦ BK * 

♦ G5 ♦-> 



**** 
G24DOPER 

**H4**+++++ 
* * 

♦ SET RETURN 
♦ CODE TO X'OO' 



*********** 
**** 



***** 

♦BK ♦ 

+ F3 + 

* * 



**** 

♦ BK ♦ 

♦ B2 ♦-> 

♦ * 
**** 

C2UODE04 

**H5******* 



->♦ D2 + 

* * 
**** 

E24RROR 

*****j3********** 

♦IJZAD037 BQ+ 
*_*_*_*_*_*_*_*_* 



♦ MESSAGE E236I * 

* * 
***************** 



*********** 



**** 
R24ETRN 

**J4******* 
* * 

* RESET LOCAL ♦ 
— >* PRINT ONLY ♦ 

♦ SWITCH ♦ 



♦ H5 ♦ 
♦BK- H2,H3, ♦ ♦ 
H4 ♦♦♦♦ 



**** 

* * 

* J4 * 

* * 
**** 



*********** 



C24KCARD V 

***K1 *********** 



♦READ VOL AND 
HDR LABEL 



**************** 



* * 

* Gl ♦ 

* * 
**** 



->♦ D2 ♦ 
* * 

**** 



**** 
* 
JH ♦ 
* 

**** 



****K4* ******** 

* * 

* RETURN TO OLT * 

* * 
*************** 
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**** 

♦ BJ * 
D3 



* D3 ♦---, 

* * J 
**** v 



BACKSPACE 
ACTIVE 

* *. . ** 

♦ . . * 
* YES 



B2 


*. 




. * ♦. 




. * ♦ . 


NO 


♦.DATA ON TAPE . 


*_ 


♦. . * 




♦. . * 


1 


♦. . * 


V 


■!■ YES 


***** 






♦BJ * 






* H5* 






* * 



**** 

* * 

* H2 * 

* * 
**** 



*****£>2 ********** 



***************** 



E2 *. 
. * *. 

COUNT = 



**** 

* * 

* C4 * 

* * 
**** 



**** 
♦BJ * 

* G4 +-> 

* * 
**** 

G24BUILD . 
F3 

. ** 
♦.DATA COUNT 



**************** 



. DATA COUNT . ♦ -, 

♦. .♦ 

♦. .♦ 

♦ . .♦ V 



***** 

♦BJ ♦ 

* F3* 

* * 



***C4* ********** 

* * 

READ A RECORD 
* * 

**************** 



D4 ♦. 
. ♦ ♦. 
YES .♦ UNIT 
♦. EXCEPTION 



E4 ♦. 
. ♦ ♦. 
. ♦ ♦ 

♦ .DATA ON TAPE 



. * 

NO 



♦ . INPUT = //END. ♦ : — > 



*. 


G2 


*. 


G3 


*. 


♦ . 


. * *, 


. ♦ ♦. 


SPACE +. 


NO .♦ +. 


.♦ +. NO 


T = . +< — 


♦. TAPE MARK .♦ 


♦ . EOF .♦ -, 


.* 


♦. . + 


♦ . .+ 


. * 


♦. . ♦ 


♦. .♦ 1 


.* 


+ . . ♦ 


+ . .♦ V 


♦ YES 


♦ YES 


♦ YES **** 


1 **** 


**** 






* * 


♦BJ ♦ 


* * 






* C4 ♦ 


L_>* G4 ♦ 


♦ H2 ♦-> 






* * 


* * 


* * 






**** 


**** 


**** 










C24DEC1 V 


C24ODE0C V 




**H2*+****+ 


**H3******* 




* * 


* * 




♦ SET RETURN ♦ 


♦ SET RETURN + 




♦ CODE T( 


D X'OC * 


♦ CODE TC 


) X'OC ♦ 



♦ FIRST ♦. YES 
RECORD READ . ♦- 



**H4******* 



**** 

* * 

* H2 ♦ 

* * 
**** 



**G5++++^++ 



*********** 



♦ SET RETURN 
♦ CODE TO X'10' 



*********** 



*********** 



**** 

♦ BJ ♦ 
L_>* J4 * 

* * 
**** 



*********** 



1**** 
♦ BJ ♦ 
->♦ J4 ♦ 
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LOGSCAN 



**** 

* * 

* A4 * 



*********** 
**** 

* Gl *-> 

* * 
**** 

6RET V 

**Gi* ****** 

* * 

* RESET LOCAL * 
♦PRINT ONLY FLAG* 

* * 

* * 
*********** 



V 
****H1**+ ****** 

* * 

* RETURN * 

* * 
*************** 



A26REPLY 

*****K1 ********** 
+IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* *< 
♦MESSAGE 0UE199D* 

* * 
***************** 



**** 

* * 

* F2 * 



****A2********* 

* * 

* IJZAD026 * 

* * 
*************** 



**B2******+ 



*********** 



-♦.INITIAL ENTRY.* 



**** 

* * 

* C5 * 

* * 
**** 

A26RETN 

***** E 2** ******** 
♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 
♦MESSAGE 04E228D* 

* * 
***************** 

**** 



* F2 *-> 

* * 
**** 

6RETRC . . 

F2 *. 
. * *. 
S .* 
-♦. REPLY = NO 



*. 



* NO 



A26MVCIN V 

**H2******* 



*********** 



A260UST V 

*****j2*** ******* 
♦IJZAD041 BU* 
*_*_*_*_*_*_*_*_* 

* CONVERT REPLY * 

* TO HEX * 

* * 
***************** 



NO 
; * 


.♦RETURN CODE*. 

= 

♦. . * 

*. . * 

*. . * 

* YES 

| 




V 
**** 

* * 

* A4 * 

* * 
**** 



A26NOTAS 

*****^3 ********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*.*_*_* 

* *<_ 

* MESSAGE E237I * 



***************** 



A26EQUAL 

*****B3 ********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 
< * *<_ 

* MESSAGE E236I * 

* * 
***************** 



A26GETNT 

*****C3 ********** 
♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 
< * *< 

* MESSAGE E235I * 

* * 
***************** 



REWIND TAPE 

* * 

**************** 

**** 

* * 

* E4 *-> 



**** 
A26SET1 

***EH*********** 

* * 

READ A RECORD 
* * 

**************** 



V 
.*. 

F4 *. 



YES . * *. NO 
*. EOF .* 



**G4******* 



* SET RETURN * 
->* CODE = X 1 10« * 



**H3******* 



*********** 



**** 

* * 

* Gl * 

* * 
**** 



*********** 



**** 

* * 

* Gl * 

* * 
**** 



♦ *** 

* * 

* C5 * 

* * 
**** 



. *±S THEKfc A *. NO 

DEVICE . * n 

X...-" I 



**** 

* * 

* Fl * 

* * 
**** 



RESET 
REQUESTED 



.♦RECORD TYPE*. YES 
->*. SPEC 'ANY 1 .*- 



YES . +INVALID REC*. 
*. TYPE SPEC . 



V 

. *. 

H5 *. 



*****jll********** 



***************** 

**** 

* * 

* KU *-> 

* * 
**** 

**K4******* 



*********** 

1 

**** 

* * 

* Gl * 

* * 
**** 



**** 

* * 

* K4 * 

* * 
**** 



YES . *SPEC RECORD*. 
* . FOUND . * 



**K5******* 



* SET RECORD * 
♦ READ FLAG * 



*********** 

I 

**** 

* * 

* E4 * 

* * 
**** 
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PLINK 



****A1********* 

* * 

* IJZAD028 * 

* * 
*************** 



. ♦ MACRO LEVEL*. YES 

♦. CORRECT . * 

*. . * 



** C jL******* 
* * 

* SET RETURN 

* CODE X'04' * -, 

*. 

*********** y 

**** 

* * 

* Dl * -, 

* * 
**** 

ERR16 V 



. *. B28RET0 

B3 *. **B4******* 

. * *. * * 

. *REQUEST TO *. YES * SET RETURN 

->*. DELETE .* >* CODE TO X' 00' 

*. . * * 

*. . * * * 

*, .* *********** 



**** 

* * 

* D4 * 

* * 
**** 



B28ERR16 

**D1******* 



*********** 



B28ERR08 

**D3******* 



*********** 



**** 

* * 

* E2 * — -, 

****** I 



**** 

* * 

* D4 *-> 



****D4********* 

* * 
->* RETURN * 

* * 
*************** 



*****E2** ******** 

* * 
♦LOAD PHASE AND * 

* PASS ENTRY * 
♦POINT TO CALLER* 

* * 
***************** 

**** 



F3 ♦. **F4******* 

. * *. * * 

♦. NO V .♦ ♦. NO * SET RETURN 
LAST LOAD .♦ >♦. MODULE AVAIL .* >* CODE = X'OC* 



*********** 

**** 

* * 
->* F2 ♦ 

* * 
**** 



**G2+++**** 

* * 
♦LOAD CORRECT ♦ 

♦RETURN CODE IN ♦ 
♦ R15 ♦ 

* * 
*********** 

**** 

* * 
L_>* D4 ♦ 

* * 
**** 



. ♦ MODULE > ♦. YES 
PARTITION 



♦. .♦ I 

♦. .♦ V 

♦ NO **** 

I***** * 

♦ ♦ Dl * 

->♦ E2 ♦ * 
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EXIO (Section 1 of 3) 



****A1********* 

* * 

* IJZAD035 * 

* * 
*************** 



. ♦ IS MACRO *. YES 
*. LEVEL 2 OR 3 . * 



*****£!********** 

* * 

* * 
♦RETURN CODE = 4* 

* * 

* * 
***************** 



**** D 1********* 

* * 

* RETURN * 

* * 
*************** 



* Fl * — t 

* * | 
**** 

5CONN V 



S35CONN 

*****F1* ********* 

♦IJZADOll * 
*_*_*_*_*_*_*_*_* 

* PERFORM LINE * 

* CONNECTION * 

* * 
***************** 



. ♦ WAS ♦ . 
. ♦ LINE CONN ♦ . YES 
*. SUCCESSFUL .* i 



S35CONT 

*****A2********** 



->*PICK UP CDSADR * 



***************** 



NO .* 
*.IS CDSADR 



*****£ 2********** 



♦SET PTR TO DEV ♦ 
♦ADDRESS IN SCT ♦ 



***************** 



S35GOON 

*****D2********** 

* * 
♦SET SEARCH ARG ♦ 

* TO SEARCH BY ♦ 
+ DEV ADR + 

* * 
***************** 



NO . ♦ IS SYMB ♦ , 

*. NAMING 

♦. SPECIFIED. ♦ 



*****p2********** 

* * 
♦SET SEARCH ARG ♦ 

♦ TO SEARCH BY ♦ 

♦ SYMB NAME ♦ 

* * 
***************** 



***** 

♦ BN1 + 

♦ Al* 



S35DEV 

*****G2 ********** 

♦ * 

♦ SET PTR TO ♦ 

♦ SEARCH DEV ♦ 

♦ TABLE ♦ 

♦ • * 
***************** 



***** H 1* ********* 



***************** 



****jl********* 

* * 

* RETURN ♦ 

* * 
*************** 



**** 

* * 

* A5 * — n 

* * ] 
**** v 



**** 
* 
♦ B3 ♦ 



» no T — i 

♦ ♦ 1 

**** $ 

. ♦. 
B3 
. * 
♦ IS DEV 

PRIMARY OR . ♦ n 

♦ . GRABBED . ♦ 
♦. .♦ 

♦. .♦ V 



♦ J3 ♦ 

* * 
**** 



IS TECB 
ADDR = 



♦. .+ V 



* NO **** 

* * 

* J3 ♦ 

* * 
**** 



NO . ♦ IS DEVICE 
— ♦. ACTIVE 



.♦ HAS WAIT ♦. NO 
♦. BEEN ISSUED .♦ 



S35PRGE .♦. 
G3 ♦ 



IS PURGE 
REQUIRED 



♦ J3 ♦ 

* * 
**** 



■-I 



> 

V 
S35CHECK .♦. 

H2 ♦. 
. ♦ ♦. 
.♦ IS DEVICE ♦. YES 
♦.ADDRESS EQUAL. ♦ -, 



**** 

* * 

* B3 ♦ 

* * 
**** 



***** 

* * 

->♦ A5 ♦ 



J2 ♦. 

. ♦ ♦. 

. ♦ ♦ 

♦.END OF TABLE 

♦ . . ♦ 

♦. . ♦ 

♦ . . ♦ 

NO 



*****K2 ********** 

* * 

♦ INCREMENT ♦ 
-♦POINTER TO NEXT+ 

♦ ENTRY ♦ 

* * 
***************** 



n 



**** 

S35RET8 

*****j3********** 

* * 

♦ RETURN CODE ♦ 
>♦ EQUALS EIGHT ♦ 



***************** 



**** K3 ********* 

* * 

* RETURN ♦ 

* * 
*************** 



*****3 5* ********* 

* * 

* * 
♦SET PTR TO CCB1+ 



S35CLEAR V 
*****C4 ********** *****c5* ********* 

* * * * 
+ * * CLEAR 1ST 6 ♦ 

♦ SET PTR TO CCB2+ >* BYTES OF CCB + 



.♦IS 


CC] 


32 IN *. YES 




USE .♦ t 


*. 


.* 1 


*. 


•* 




♦. . ♦ V 




* NO * * * * 






* * 






♦ J3 ♦ 






* * 






**** 



***************** 



***************** 



**** 

* * 

* E4 ♦—■ | 

****** J 



*****£(|********** 

* 

PICK UP CCB * 

ADDRESS + 



***************** 



*****F4* ********* 

* * 

* * 

* ISSUE SVC 25 ♦ 

* * 

* * 
***************** 



**G4****+** 

* * 

* * 
♦RESET PURGE BIT+ 

* * 

* * 
*********** 



**H4*++++++ 

♦ RESET DEV ♦ 
♦ END. DE ♦ 

♦OCCURRED, ATTN ♦ 
♦EXPECTED BITS^ 

* * 
*********** 



**J4******* 

* * 
♦RESET ACTIVE. ♦ 

♦EVENT COMP, INT + 
♦OCCURRED BITS+ 

* * 
*********** 



♦ ♦^♦♦♦♦♦♦ + 

+ RESET ♦ 

♦UCCB1, UCCB2.+ 

♦ CCB1USD, AND ♦ 

♦CCB2USD BITS ♦ 

* * 

*********** 



YES .♦ HAS LINE *. 

*.BEEN DISABLED. ♦ 

♦ . BY OLTEP .♦ 



**** 

* * 

* Fl ♦ 

* * 
**** 



F5 ♦. 
. * LINE ♦. 
.♦CONNECTION ♦. NO 

♦. REQUIRED BY .♦ n 

♦. OLT .♦ 



***** 
*BN1* 
♦ Al* 



G5 ♦. 
.* LINE ♦. 
NO . * CONN PREV ♦ . 

r ♦.DONE IN OTHER. ♦ 

+ . SECT .♦ 



**** 

* * 

* Fl * 

* * 
**** 



**H5****+*+ 



+ RESET EXIO 
* FST FLAG 



*********** 

I**** 
*BN1+ 
->♦ Al 
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*****K5* ********* 



***************** 

**** 

* * 
»~>* A5 ♦ 

* * 
**** 



Chart BN1. 



IJZAD035: 



EXIO (Section 2 of 3 ) 



*BN-Gl,D5, F5, H5 
**** 

* * 

* * *— i 

* * 
**** V 

S35SCAN . *. 

Al *. 



**** 

* * 

* A2 *—-, 

* * I 
**** V 



*. DASD DEVICE . * -, 



. * IS CMD A *. NO 

*. SEEK OR .* 

*. RESTORE . * 



***** 

♦ BN2* 

* A2* 



***** bi ********** 

* * 
♦COMPUTE LENGTH * 
♦AND END ADDR OF* 

* CCW CHAIN * 

* * 
***************** 



V 

. *. 

CI *. 

. +DEVICE *. 

YES . * IN FPM *. 

*.(ONLY DASD IN.* 

*. FPM) . * 



*.IS CMD A SEEK.*- 



* B3 * 

* * 
**** 



SCAN10 

***** 53 ********** 



* POINT TO NEXT 

* CCW 



***************** 



*. IN FPM . * 

**.. ..■* 

♦. .* 



**** 

* * 

* E2 * 



2321 .* -, *. OR BELOW .* n 

*. . * J *. EXTENTS .* 

"*..*" V **..*" V 



**** 

* * 

* El *-> 



***** 

*BN2* 

* A2* 

* * 



**** 

* * 

* E2 *-> 



**** 
SCAN 01 

*****Ei ********** 



***************** 



**** 

* * 

* E5 * 

* * 
**** 



r — >*.IS CMD A TIC 



IS CMD A TIC .* n 

*. .* V 



**** 

* * 

* AU * 

* * 
**** 



.OUTSIDE CHAIN.* -, 

*. .* V 



**** 

* * 

* E5 * 

* * 
**** 



,*IS COMMAND *. YES 
A NOP . * t 



*****H1 ********** 



***** G 2 ********** 



* POINT TO NEXT * 

* CCW *- 



***************** 



I**** 
* * 
->* C5 * 

* * 
**** 



**** 

* * 

* E3 * 

* * 
**** 



*****E3********** 

* * 

* * 

* BUMP PTR * 

* * 

* * 
***************** 



1**** 
* * 
->* El * 

* * 

**** 



G3 
* 

LAST CCW 



* * 1 

**** v 
SCAN03 .*. 
AU 



* C4 *-> 



*.DATA CHAINING.* 

*. .* 
**** * YES 

* ***** 

* GU ♦ * 

* * DU *-> 
***** * 

**** V 
SCAN05 .*. 

DU *. 
. * *. 



*****£(J********** 

* . * 
♦ACCUMULATE DATA* 

* COUNTS * 



***************** 



* YES **** 
I ***** * 
* * El * 
l~>* H5 * ♦ 



. ♦ DATA + 
*. CHAINING ON 



**** 

* * 

* G4 *-> 



* POINT TO NEXT * 

* CCW * 



***************** 



B5 


* 4 


. * *. 


.* *. YES 


*. LAST CCW . ♦ t 


*. .* 1 


*. .* J 


*. .* V 


* NO **** 


**** 


* * 


* * 


* J5 * 


* C5 *-> 


* * 


* * 


**** 


**** 




SCAN10A V 


**C5******* 


* * 


* RESET DATA ♦ 


* CHAINING BIT * 



*********** 



*. CHAIN .* n 

* YES **** 
**** * * 

♦BN2* * E3 * 

* Dl *-> * * 
*E1 ♦ ***+ 

**** 
SCAN15 V 

***** E 5********** 



***************** 



****P5********* 

* * 

* RETURN * 

* * 
*************** 



SCAN08 .*. 

G5 , *. 

. * MORE * . 

.* THAN ONE * 

♦ .BYTE IN DATA 

*. CHAIN . * 



. * 



**** 

* * 

* H5 *-> 



***************** 



.*IS A CMD A *. YES 
*. RD OR WRT . ♦ 



1- I£,0 
I **** 

*BN2* 
L->* Al * 



*. TIC OR SNS . * n 



NO *♦♦♦ 
***** * 

* * E2 * 
->* A2 * * 

* ***** 

**** 



*. CHAINING DONE. 

*. .♦ 



**** 

* * 

* C4 * 

* * 
**** 



->+.READ COMMAND .♦ >*. 



*. 


NO 
* 


. * 


. * 




* 




YES 


*** 


***** 


* 


♦ A4 


>♦ E5 


* 



.DATA CHAINED 



** K 4******* 

* * 

* RESET * 

* CHAINING FLAG * 



*********** 

**** 

* * 
->* DU * 

* * 
**** 



->*.END OF CHAIN . *- 



* YES 


**** 


**** 




* 


* * 




* B3 


* J5 *-> 




* 


* * 




**** 


**** 






SCAN11 \ 


7 




*****J5*=i 


|c******** 



* TURN OFF CHK * 

* DATA CHAINING * 

* FLAG * 

* * 
***************** 



**** 

♦ BN2* 

->♦ A2 ♦ 
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**** 

*BN1* 

* J2 * — 



* * * 

* * *— , 

* * 1 

**** 
5REXIO V 



S35REXIO 

*****A2* ********* 



**B1******* 



*********** 



NO 


♦PUT CCW 


ADDRESS* 


1 


* IN CCB * 


1 


* * 


1 


* * 


V 


***************** 


***** 






*BN1* 






* A4* 






* * 






* 








V 




*****q2 ********** 




* * 




* PUT LUB * 




* ASSIGNMENT IN * 




* CC 


:b * 



***** 
*BN1* 
* AU* 



. *NON FORMAT *. NO 
*. READ . * 



***** 
*BN1* 
* E5* 



***************** 



**C2******* 
*M SET X'04 1 * 

* IN CCB TO * 
INDICATE 

* APPENDAGE * 
* * 

*********** 



♦.ATTNIN = YES 



**£2******* 

* * 

* SET ATTNIN * 
♦EXP BIT IN DEV * 

* TABLES * 

* * 
*********** 



YES • ***** 
**** *BN1* 
*BN1* * E5* 
->* AU * * * 



S35NOATN . *. 


F2 


*. 


, * 


*. 


NO .* 




*. BUSY = 


= YES 


1 *• 




1 *• 


. ** 


V *. 


. * 


**** * YES 


* 




A3 * 




* 




**** 




y 


r 


**G2* 


it***** 



**** 




* * 


* A3 * — t 


* * j 


**** [ 


S35NOBNS V 


**A3*****++ 


* * 


♦ SET PROPER ♦ 


♦CCB IN USE BIT ♦ 


♦ (IN COMMON) ♦ 


* * 


*********** 



**B3******* 

* * 
* SET CCB BIT * 

♦IN DEV TABLE TO+ 
♦INDICATE CCB ♦ 

* * 
*********** 



*****£ 3********** 

* * 

* * 

* ISSUE EXCP * 

* * 

* * 
***************** 



.*. S35RTEN 

D3 ♦. *****d4********** 

. * *, * * 

.♦ SENSE EQ, ♦. YES ♦ RETURN CODE = ♦ 

♦ .NO REQUESTED .♦ >♦ X'10' * 



***************** 



*****E3* ********* 

* * 

* RETURN CODE = * 

* ZERO * 



***************** 



****F3 ********* 

* * 

* RETURN ♦ 

* * 
*************** 



****£H********* 

* * 

* RETURN ♦ 

* * 
*************** 



♦SET BUSY BIT ♦ 
♦IN DEVICE TABLE+ 



*********** 

**** 

* * 
->* A3 * 

* * 
**** 
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**** 

* * 

* A4 * — t 



****A1 ********* 

* * 

* IJZAD036 * 

* * 
*************** 



S36PROC 

*****A2********** 

* * 

* PICK UP TIME * 
->*FROM PARAMETER * 

* LIST * 

* * 
***************** 



*****£!********** 



***************** 



****QX********* 

* 

RETURN * 
* 
*************** 



*****C2 ********** 

* * 

* DEFAULT TO 30 * 

* SECONDS * 



***************** 



* IS TIME > *. YES 
3.60 OR NEG . * 



V 

. *. 

E2 *. 

* * 

IS TECB 



**** 
+ BP1* 

* A2 * — -. 
*B2 * 
**** 

S36CHAR V 

*****03******* 
* 

* RETURN CODE 
>* X'OC 



***************** 



****E3********* 

* * 

* RETURN * 

* * 
*************** 



S36BCTLP 

*****P3 ********** 



*****Q2 ********** 



***************** 



*****H2 ********** 



* WAIT ON 
•♦INTERVAL TIMER 



***************** 



**** 
*BP1* 
* F3 * 



***************** 



*****G3* ********* 

* * 

* LOOP FOR * 

* CALCULATED * 

* COUNT * 

* * 
***************** 



**** 
S36SETRT 

*****j2 ********** 

* * 
♦SET RETURN CODE* 

* TO X'08» + 



***************** 



****K2* ******** 

* * 

* RETURN + 

* * 
*************** 



n 



**** 

S36IOTME 

*****A4* ********* 



********* 



*****C4* ********* 



***************** 



S36GOON 

*****£)4********** 

* * 
♦SET SEARCH ARG * 

* TO SEARCH BY * 

* DEV ADDR * 

* * 
***************** 



. *IS SYMBOLIC*. NO 
*. NAMING .*--- 
*. SPECIFIED. * 



*****F4********** 

* * 
*SET SEARCH ARG * 

* TO SEARCH BY ♦ 

* SYMB ADDR + 

* * 
***************** 



***************** 



. DEVICE FOUND . ♦ n 



♦ .END OF TABLE 



***** 

♦ BP1* 

* A2* 
* * 



**** 

* * 

* D3 * 

* * 
**** 



*****K4* ********* 



♦UPDATE POINTER * 
* TO NEXT ENTRY ♦ 



***************** 
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* * 








*BP * 






* Al *- 


1 






* * 1 
**** V 




* * 
**** 








S36CKWT 


*. 






S36FND .*. 




Al 




*. 




A2 *. 




. * 




*. 




. * ♦. 




. * 






♦ . NO 


. +TECB ADDR = ♦. 


NO 


*. WAIT 


= 


YES 


. * t 


♦.TECB ADDR IN . 


* 1 


*. 






* 1 


*. TABLE .* 


] 


*. 




. *" 




*. . * 




* 




* 


V 


♦ . . * 


V 




*' 


YES 


**** 


* YES 


***** 




1 




* * 






*BP * 




1 




* A5 * 






* D3* 








* * 






* * 








**** 






* 



♦BJ * 
* H<4 *- 



■1 



**** 
S36CLNI 

**Al4******* 

♦ RESET * 

♦ACTIVE EVENT * 

* COMPLETE, INT * 

♦OCCURRED BITS* 

*********** 



.* IS EVENT *. YES 


.♦IS DEVICE *. NO 


. COMPLETE . * t 


*. ACTIVE .♦ 1 


*. .♦ 


*. .* 


♦. . ♦ I 


*• •* 1 


*. .* V 


♦ . .* V 


* NO **** 


+ YES ***** 




* * 




*BP * 




* E2 * 




* D3* 




* * 




* * 




**** 




* 


' 


/ 


V 


****ci ********** 


**C2******* 


* 


* * 


GET PUB FOR * 


* SET WAIT * 


DEV] 


[CE * 


♦ ISSUEI 


) BIT * 



***************** 



*****£! ********** 

* SET PTR TO * 

* INSTR TO TEST ♦ 

* STARTED * 

* CONDITION ♦ 

* * 
***************** 



***** pi ********** 

* IF TIMEOUT ♦ 

* RETURNS, ♦ 
♦CONTROL IS NOT ♦ 

♦ RETURNED AND ♦ 

♦ PURGE OCCURS ♦ 
***************** 



*****G1 ********** 

♦S36LOOP BJ2+ 
*_*_*_*_*-*_*_*_* 

* * 

* TIMING LOOP + 

* * 
***************** 



S36TIME 

*****H1 ********** 

* * 

* SET PTR TO * 

* INSTR TO TEST + 
♦EVENT COMPLETE ♦ 

* * 
***************** 



*****jl ********** 

♦S36LOOP BJ2+ 
*_*_*_*_*_*_*_*_* 

* * 

* TIMING LOOP ♦ 

* * 
***************** 

**** 

* * 
L->* E2 ♦ 

* * 
**** 



*********** 



PURGE = YES 



* A5 * — t 

* * 1 
**** V 

S36CKDE .♦. 
A5 
. * 
NO .* 



♦ H4 ♦ 

* * 
**** 



**** 




* * 




* E2 *-> 




* * 




**** 




S36RCZER V 


*****E2++ ******** 


* * 


♦ RETURN CODE = * 


* 0( 


) ♦< 



***************** 



**** 

♦ BP2* 

* G4 *-> 



**** 
S36PURGE 

*****P2** ******** 



***************** 



*****Q2********** 

* * 
♦ISSUE SVC 25 TO+ 

♦ PURGE I/O + 

♦ REQUEST * 

* * 
***************** 



**H2**+**** 

* * 

♦ RESET CCB ♦ 
USED AND CCB ♦ 

♦ ACTIVE BITS ♦ 

* * 
*********** 



**J2******* 



* RESET PURGE ♦ 
♦ REQUIRED BIT ♦ 



*********** 

**** 

* * 
L->* A4 * 

* * 
**** 



D3 ♦. 

. ♦ *. 
* 

POOL = YES 

♦. . 

♦. . * 

♦ . . ♦ 

♦ YES 



**** 

* * 

* Al * 



V 
**D4******* 

* RESET DE * 

♦ IN, DE * 

♦OCCURRED, ATTN * 

♦EXPECTED AND ♦ 

* BUSY BITS ♦ 
*********** 



. ♦ INTERRUPT ♦. NO 




♦ . OCCURRED .♦ -, 


♦. .♦ 1 


♦ . .♦ J 


♦. .♦ V 


♦ YES ***** 




*BP * 




♦ J2* 




* * 




* 


S36INTCN ^ 


' 


**G3+++++++ 


* * 


* RESET INT ♦ 


♦ OCCUI 


<RED ♦< — -I 





****F4********* 

* * 

* RETURN ♦ 

* * 
*************** 



*********** 



*****H3********** 



***************** 



****J3*++++++++ 

* * 

* RETURN ♦ 

* * 
*************** 



**** 
* 
H4 



♦ H4 *—, 

* * 
**** 

ANY V 



S3 6 ANY 

*****H4**** ****** 

* * 

♦ SET PTR TO ♦ 

♦ INSTR TO TEST ♦ 
+ FOR ANY INT. + 

* * 
***************** 



*****jl4* ********* 

♦S36LOOP BP2* 
*_*_*_*_*_*_*_*_* 



TIMING LOOP 



***************** 



*****q 5* ********* 

* * 

* SET PTR TO ♦ 

* INSTR TO TEST ♦ 
+ FOR DE ♦ 

* * 
***************** 



*****C 5* ********* 

* IF TIMEOUT ♦ 

♦ OCCURS, CONTROL* 

♦ IS RETURNED ♦ 
♦DIRECTLY TO OLT+ 

* * 
***************** 



*****D 5* ********* 

♦S36LOOP BJ2* 
*_*_*_*_*_*_*_*_* 

* * 

* TIMING LOOP ♦ 

* * 
***************** 



**E5******* 



* RESET DE 
OCCURRED BIT 



*********** 



*****P5 ********** 



***************** 



****G5********* 

* * 

* RETURN ♦ 

* * 
*************** 
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* * 

* S3 6LOOP * 
*************** 



* GET THE TIME 



.IS TIBiE AVAIL. 



*************** 



*****£ 2********** 

* * 
♦CALCULATE TIME * 
♦WHEN COUNT WILL* 

* BE EXPIRED * 

* * 
***************** 



***** c3 ********** 

* * 
♦CALCULATE LOOP * 

* COUNT FOR ♦ 
♦SPECIFIED TIME ♦ 

* * 
***************** 



1— >♦ FU 



+ TEST FOR ♦ 
♦ DESIRED EVENT ♦<- 



***************** 



.♦IS DESIRED 
. EVENT IN 



****F3********* 

* * 

* RETURN ♦ 

* * 
*************** 



**** 
S36FINAL 

*****FH ******* 



***************** 



.* ♦. YES 
*. WAIT = YES .♦ n 

♦ . .♦ V 



***** 

»BP1* 

♦ F2+ 

* * 



****H4 ********* 

* * 

* RETURN TO OLT * 

* * 
*************** 
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**** 

* * 

* A3 * 

* * 
**** 



**** 

* * 

* A4 + 

* * 
**** 



**** 

* * 

* A5 * 

* * 
**** 



****Bl********* 

* * 

* IJZAD037 * 

* * 
*************** 



V 
. *. 



C370VR1 V 

**A3******* 



♦SET 'IN COUNT' * 

* * 

* * 
*********** 

**** 

* * 

* B3 ♦-> 

* * 
**** 

L371WAY 

**Q3******* 

* * 

* * 

♦SET 'OUT COUNT' ♦ 

* * 

* * 
*********** 



*****A4* ********* 

* * 
♦SAVE PARAMETERS ♦ 

♦ AND ZERO IN ♦ 

♦ ADDRESS ♦ 

* * 
***************** 



= 2 .♦ n 

*'•• •*'* 1 

+ . .♦ V 

* y es **** 

* * 

* HI ♦ 

* * 
**** 



♦ OUTSTANDING ♦. NO 
REQUEST . + 



C37CMN1 

*****B4* ********* 

♦ * 

♦ MOVE OUTPUT ♦ 

♦ MESSAGE TO ♦ 

♦ BUFFER ♦ 

♦ * 
***************** 



. * OUT COUNT ♦. YES 
♦ .LT OR EQ TO 0. ♦ -, 



*****A5********** 

♦INTRNL BR+ 
*_*_*_*_*_*_*_*_* 

♦OUTPUT MESSAGE ♦ 

* TO SYSLST ♦ 

* * 
***************** 



B5 ♦. 
. ♦ BYPASS *. 
. ♦ SYSLOG OR ♦. YES 
. BOTH SAME DEV, ♦ — 



***C5*********** 



**************** 



**** 

* * 

* H5 + 

* * 
**** 



**** 

♦ BR ♦ 

* FU ♦-> 



BOTH . +POLL AND/OR+. ONE 
r ♦. FREE .♦ 



**** 

* * 

* H5 ♦ 

* * 
**** 



♦. AVAIL .♦ n 

♦. .♦ 

I 



D5 *. 
* * 

ONE WAX 



TWO WAY COMM .♦ n ♦. ALREADY .♦ -. 

♦. .♦ ♦. ISSUED .♦ 

♦. .* J ♦. .♦ I 

*. . * V ♦. . ♦ V 



**** 

* * 

* HI ♦ 

* * 
**** 



.♦ONE ALREADY+. YES 
♦. OUTSTANDING .♦ 



* A5 * 

* * 
**** 



**** 

* * 

* B3 ♦ 



**** 

* * 

♦ H5 ♦ 



. ♦ ♦. YES 
. EXEC REQ . ♦ t 

%. ..•* 

♦ . .♦ V 

♦ NO ♦ ♦ ♦ ♦ 

* * 

* A3 ♦ 

* * 
**** 



•SYSLOG A 1052. ♦ n 

♦. .♦ 1 

♦ . .♦ 

♦. .♦ V 



F2 ♦ 

* 

POLL 



I **** 

* * 
L_>* A4 ♦ 

* * 
**** 

A37FRE 

*****P3 ********** 



♦ CANCEL 
->♦ OUTSTANDING 

♦ MESSAGE 



***************** 



**** 

♦BR ♦ 

* J2 ♦-> 



**** 
L37RC0 

**G3******* 



**** 

* * 

♦ fll ♦-> 



**** 
L37RC4 

**H1******* 



*********** 



* NO **** 

* * 

* A3 + 

* * 
**** 



*********** 



**H2*++++++ 



*********** 



**** 

* * 

♦ G3 ♦ 



L37R C 16 



*********** 



L**** 
* * 

>♦ G3 ♦ 
* * 

**** 



YES . ♦ 


1052 ♦. 


r *. AVAILABLE .♦ 


1 *. 


. * 


L *. 


. * 


V 


♦ . . ♦ 


***** 


+ NO 


♦ BR ♦ 






♦ Al* 






* * 






* 






C37SKIP2 








V 


****G5* ******** 


* 


* 


♦ EXIT 


TO 


$DTERM ♦ 



*************** 



**** 
L37RC8 

**H5+*+*++* 



*********** 



*****j3**+ ******* 
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****K3* ******** 

* * 

* RETURN ♦ 

* * 
*************** 
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**** 

* * 

* A4 ♦ 

* * 
**** 



L37READ .♦. 

Al *. 

.♦INITIAL*. 

. +RESPONSE OR*. 

-->*. LOCAL PRT . 

*. ONLY . * 



Al i 



**** 
* 
Bl * 



**** 
L37READR 

***B1 *********** 

♦READ MESSAGE * 
FROM CONSOLE <- 



**************** 



**ci******* 

* * 

* RESET * 

*$ORLSTIM (INPUT* 

♦FROM ON-SITE)* 

* * 
*********** 



M37LOOPX 

*****£!********** 

* * 

* TRANSLATE * 

* MESSAGE TO * 

* UPPER CASE * 

* * 
***************** 



*****F1**** ****** 

♦INTRNL BR* 
*_*_*_*_*_*_*_*_* 

♦OUTPUT MESSAGE * 

* TO SYSLST * 

* * 
***************** 



**G1******* 

* * 

* RESET LOCAL * 

* PRINT ONLY * 

* SWITCH * 

* * 
*********** 



NO . * I MAGE FROM *. 
*. CONSOLE . =» 



***J1*********** 

* OUTPUT * 
MESSAGE TO 
* SYSLOG * 

**************** 



Kl 

* 
SYNTAX 



.* CALLED BY *. YES 
->*. COMM INTERVAL. * 



A3 *. 
.♦REMOTE *. 
. * INTERRUPT 
->*. OR SKIP 
*. OUTPUT . 



YES YES . *IN AND OUT *. 

r ♦. ROUTING CODES.* 

*. MATCH . * 



B2 *. 
. * *. 

RE OPTION 



**** 

* * 

* C2 * 

* * 
**** 



* YES 



V 



YES . + EXTERNAL 
♦. INTERRUPT 



**** 

+ * 

* Bl * 

* * 
**** 



**** 

* * 

* G2 * 

* * 
**** 



♦♦**A5********* 

* * 

* INTRNL * 

* * 
*************** 



L37PPRNT 

***B5*********** 



. * *. COMM INTERVAL. * n 

1 "-v.."" I 



**** 

* * 

* C2 * 

* * 
**** 



**** 

* * 

* D2 * 

* * 
**** 



*****C2 ********** 

♦IJZADO10 BA* 

*_*_*_*_*_*_*_*_* 

-* (READ) GET * 

* MESSAGE * 

* * 
***************** 

**** 

* * 

* D2 * — -i 



f\ 



L37INERR 

*****q2 ********** 
♦INTRNL B+ 
*_*_*_*_*_*_*_*_* 

>* MSG E175I ♦< 

* (SYNTAX ERR) TO* 
* SYSLST * 
***************** 



***E2++ ********* 



♦MESSAGE E175I 
TO SYSLOG 



**************** 



. +OVERLENGTH * . 
REPLY 



G2 *. 

.♦INITIAL*. 

.♦RESPONSE OR*. 

LOCAL PRT .* 

*. ONLY .* 



.* RESPONSE *. NO 

*. FROM PERSON .* •, 

*. IN .* 

♦CONTROL* J 
*. .* V 



**** 

* * 

* D2 * 

* * 
**** 



* RETURN THE 

* MESSAGE TO 

* CALLER 

***************** 



L**** 
+BQ * 
>* G3 * 



*****q3********** 



***************** 



♦♦H3******* 

* * 

* SET NOT * 

* PERTINENT AND .* 

*$SCT SWITCHES* 

*********** 



V 
**j3******* 

* RESET * 

* OUTSTANDING * 
-♦MESSAGE SWITCH * 

* ($DIFRE) * 

*********** 



G3 

* * 
**** 



*. ERROR ON .* n 

*. INPUT . * 

1 



J 



**** 

* * 

* D2 * 

* * 
**** 



**** 

* * 

* AU * 

**** 



02 ROUTING 



. *. 




A37COMUN . *. 


D3 *. 




DU *. 


. * *. 




. +INITIAL*. 


RESPONSE 


*. 


YES . *RESl>ONSE OR*. 


FROM RIGHT 


. * 


♦. REI NOT 


. PERSON . 


* 


*. ACTIVE .* 


*. . * 




1 *• •* 


*. . * 




V *. .* 


* YES 




**** * NO 






* * 




I 




* D2 * 








* * 




I 




**** 





-*. 03 ROUTING 



**** 

* * 

* D2 * 

* * 
**** 



**F4******* 

* * 

* SET NOT * 

* PERTINENT BIT * 



*********** 



**************** 



REI ACTIVE 



*****E5********** 

♦IJZADO10 BA* 
*_*_*_*_*_*_*_*_* 

* (WRITE) OUT * 

* BUFFER TO * 

* REMOTE * 
***************** 



****P5* ******** 

* * 

* RETURN ♦ 

* * 
*************** 
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n 



****Al* ******** 

* * 

* IJZAD039 * 

* * 
*************** 



*****B1 ********** 

* * 
♦GET SECTION ID * 

* AND PREFACE * 

* POINTERS * 

* * 
***************** 



L39RC4 

*****C2********** 



**** 



**A3******* 

* TURN ON * 

* PRINT 

* CATASTROPHIC 

* ERROR MSG 

* FLAG * 
*********** 



. *FE COMMUNI-*. 

-♦.CATIOiNI OPTION. 

*. BIT ON .* 



-♦.ERROR DPRINT 



***************** 



**** 

*BS1* 

* K4 *-> 



****D2********* 

* RETURN TO 

* CALLER 
* 

*************** 



VYES .*1ST FE FLAG*. 
*. ON 



**D3******* 



*********** 



♦TURN ON ERROR* 
♦ BIT IN SCT ♦ 



*********** 



* EL/TL * 

OPTIONS BIT 
*. ON .* 



YES .* EP OPTION *. 
r *. BIT ON .* 



V 
***** 
*BS1* 
* Al* 

* * 



***** 
*BS1***** 
* A1**BS1* 
* * * G4 *-> 



**** 
L39RC0 

*****G3+* ******** 



. * PR OPTION *. NO 
*. BIT ON .* t 

'••• •*** 1 

*. . * V 



**** 

* * 

* G3 * 



SET RC = 



***************** 



ERROR PRINT 



*. . * V 



****,i2** ******* 

* RETURN TO' * 

* CALLER + 
* 

*************** 



. COMMUNICATION. * 
REQ . * 



***** 
*BS1* 
* Al* 



♦.CATASTROPHIC . ♦- 

♦ . ERROR BIT. ♦ 

*. ON .* 



**** 

* * 
->* B3 * 

* * 
**** 



. * 1ST *. YES 

♦ .CATASTROPHIC .♦ -. 

♦. ERROR .♦ 

♦. .* I 
*. .* V 



**j3******* 



*********** 



****K3 ********* 

* * 

* CALL IJZAD052 * 

* * 
*************** 



**** 
***** * 

* * B3 * 
->♦ A3 ♦ ♦ 

* ***** 
**** 



**** 
*BS1* 
* J3 ♦- 



***** 35 ********** 



***************** 



* C5 * 

* * 
**** 



* GET MESSAGE * 
*INFO AND ACTIVE*<- 
+ ROUTINE NUMBER * 

* * 
***************** 



L39CNVRT 

*****D4********** 
+LYYCONVT BL1* 
*_*_*_*_*_*_*_*_* 

♦CONVERT ROUTINE* 

* NUMBER * 

* * 
***************** 



*****E4*** ******* 

* * 

* PUT ROUTINE * 

* NUMBER IN FE * 

* MESSAGE ♦ 

* * 
***************** 



*****F4* ********* 
♦IJZADO70 ♦ 
*_*_*_*_*_*_*_*_* 

♦ PRINT MESSAGE * 

♦ E129I * 

♦ * 
***************** 



**G4+****** 



*********** 



* PRINT 
.CATASTROPHIC 

* ERROR MSG * 



***** 
*BS1* 
* FU* 



L39PRCAT 

**j5******* 

+ SET ♦ 
♦CATASTROPHIC ♦ 

>* ERROR MESSAGE 

* ISSUED * 

* * 

*********** 



*****K5* ********* 

*IJZADO70 * 
*_*_*_*_*_*_*_*_* 

* PRINT MESSAGE * 

* E157I * 

* * 
***************** 



***** 
*BS1* 
* F4* 
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*BS-;il, E3, F3 






♦ SET LEVEL TO 1 * 



NO . *AP LEVEL 2 *. 
- — *. OR 3 



**E1******* 

* * 

♦SET LEVEL TO 3 * 



. PRINT HEADER . * 



***** G 1********** 

♦IJZADO60 * 
*_*_*_*_*_*_*_*_* 



* A2 *—■> 
**** ] 



*** 



n 



*********** 



**A3******* 
* TURN OFF * 
MSG LEVEL 2 * 
TURN ON MSG 
LEVEL 1 AND * 
♦COMMUN. MSG* 
*********** 



*****B3 ********** 

*IJZAD061 * 
*_*_*_*_*_*_*_*_* 

* * 
♦PRINT COMMENTS * 

* * 
***************** 

**** 



L39PCCW V 

*****C2*+******** 
♦IJZAD062 * 



D2 +. 
. * *. 

PRINT CSW 



*****E2 ********** 
♦IJZAD063 * 
*_*_*_*_*_*_*_*_* 

* * 

* PRINT CSW * 

* * 
***************** 



C3 *. 

* * 

RESTORE 

*. . * 

*. . * 
NO 



D3 *. 
. * *. 

.'SPACE 2 OR 3 ."* 

*. . * 

*. . * 

*. . * 

YES 



****A4 ********* 

* * 

* LYYCONVT * 

* * 
*************** 



******** 



*SAVE REGISTERS * 



************* 



CU *. 
. * *. 

COUNT = 



LYYCNV8 

*****C5* ******** 



*****£)4* ********* 

* * 

* CONVERT THE * 



*************** 



**************** 



****05********* 

* * 

* RETURN * 

* * 
*************** 



L39FMCTL 

*****E3********** 

*IJZADO70 * 
*_*_*_*_*_*_*_*_* 

* GO TO OUTPUT * 
♦WRITER TO PRINT* 

* MSG * 
****************** 



RR V 



*K5 
**** 
L39CPERR 

**p4******* 



* PRINT HEADER * 


* MESSAGE * 


* * 


********:< 


******** 


> 




1 


1 


L39DSCPR .*. 


HI *. 


. * *. 


. * PRINT *. NO 


*. DESCRIPTION .* t 


*. .* 


*. .* 1 


*. .* V 


* YES **** 




* * 




* A2 * 




* * 




**** 


V 


*****jl********** 


♦IJZAD061 * 


*_*_*_*_*_*_*_*_* 


* PRINT * 


* DESCRIPTION * 


* LINE * 


***************** 


**** 


■ * * 


!■->* A2 * 


* * 




**** 



YES .* PRINT *. NO 

+.FE/CAT ERROR .* 

* . MESSAGE . * 



*********** 



*****G2 ********** 
♦IJZAD064 * 
*_*_*_*_*_*_*_*_* 

* * 

* PRINT SENSE * 

* * 
***************** 



* * G3 * — n 
***** * 

**** | 



PRINT DATA 



*****j2*** ******* 
♦IJZAD065 



*_*-*_*_ 



_*_*_*_* 



* PRINT 


DATA * 


* * 


******** 


K******** 






y 


/ 


L39CCMNT . *. 


K2 *. 


. * *. 


.* PRINT *. NO 


*. COMMENTS . ♦ t 


*. .* I 


*• •* 1 


*. .* V 


* YES ♦ **♦ 


1 ***** 


* * C3 


L->* A3 * 




* ***** 



*****G3********** 

* SET OPCOM * 
♦SWITCH AND GET * 

* CONVERT * 

* INFORMATION * 

* * 
***************** 



*****H3********** 

♦LYYCONVT BL1* 
*_*_*_*_*_*_*_*_* 

* CONVERT FROM * 

* HEX TO EBCDIC * 

* * 
***************** 



♦ ADDRESS IN CAT * -, 

♦ ERROR MESSAGE * 

♦ * I 
***************** y 

I 



***** 

*BS * 
* G3* 



*****H4**** ****** 



************** 



**** 
*BS * 
L->* H3 



*** 
* 

* K3 *— 

* * 
**** 

K3' 



***** 

*BS * 
* B4* 



♦ .CHAIN DPRINTS. ♦- 



*****K4* ********* 
* * 
♦SET RETURN CODE+ 
_>* = 00 * -, 

1 

***************** ij 



j **** 

* * 
L->* G3 * 

* * 
**** 



***** 
*BS ♦ 
♦ D2+ 
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Chart BT. IJZADO4 0: 



$MODE 



****Al ********* 

* IJZADO40 * 

* * 
*************** 



**B1******* 

* * 
SET LOCAL 

PRINT ONLY 
SWITCH 

* * 
*********** 



. * PSW TABLE *. 
. SPECIFIED . 



S40RTNBY V 

*****Dl* ********* 

* * 

* PUT 'CONTROL' * 

* IN MESSAGE * 

* E229I * 

* * 
***************** 

**** 

* * 

* El *-> 

* * 
**** 

**E1******* 

* * 

* RESET LOCAL * 

* PRINT ONLY * 

* SWITCH * 

* * 
*********** 



S40GOBYR V 

*****Fl ********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E229I * 

* * 
***************** 



****G1********* 

* $DTRMLNK IN * 

* IJZADO00 * 

* * 
*************** 



.* MULTI- *. YES 

->*. PROGRAMMING . * 

* . SYSTEM . * 



*. . * 
* NO 
**** I 



S40QMODE 

**D2******* 

* * 

* TURN ON * 
* QUIESCE MODE *<- 
*BIT IN COMMON* 

* * 
*********** 



->*. F2 QUIESCED . *- 



*****E2 ********** 
♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E233I * 

* * 
***************** 



**F2******* 

* * 

♦RESET 'LOCAL * 

* PRINT ONLY' * 

* SWITCH * 

* * 
*********** 



****G2********* 

* * 

* RETURN * 

* * 
*************** 



*****H2 ********** 
♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* *<_ 

* MESSAGE E222I * 

* * 
***************** 



J2 *. 

. * *. 

.* *. N 

*. F2 QUIESCED .*- 

*. . * 

*. . * 

*. . * 

YES 



YES .* *. 
*. Fl QUIESCED .* 



S40ISTPA V 

*****g3********** 

♦IJZACKTP DF* 
*_*_*_*_*_*_*_*_* 



***************** 



F3 *. 
. * *. 

TP ACTIVE 

* *. . ** 
*. . * 

* NO 



*****G3********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 
♦MESSAGE 0UE221D* 

* * 
***************** 

**** 

* * 

* H3 * 

* * 
**** 

. *. 
H3 *. 
. * *. 
S .* 
-*. REPLY YES 



S40NOQUI 

*****FC|* ********* 

* * 

* PUT 'QUIESCE' * 
>* IN MESSAGE * 

* E229I * 

* * 
***************** 

1 

**** 

* * 

* El * 

* * 
**** 



.73 


*. 




*. 




*. YES 


*EPL^ 


I NO . * J 



.* *. NO 
*. Fl QUIESCED .♦ 



*****K3* ********* 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

♦MESSAGE 04E199D* 

* * 
***************** 
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**** 

* * 

* D2 ♦ 

* * 
**** 



**** 

* * 

* H3 * 

* * 
**** 



Chart BU. IJZAD041: 



CONVERT 



* * 

* IJZAD041 * 
*************** 



**** 

* * 

* B3 * 

* * 
**** 



**** 

* * 

♦ J2 * 



. ♦ CORRECT *. NO 

♦. MACRO LEVEL =. * 

*. 2 . * 



*********** 



***vi********* 
* 
RETURN * 
* 
************** 



*********** 



****D2********* 

* * 

* RETURN * 

* * 
*************** 



***** 53 ********** 

* * 
♦STORE 2ND CHAR * 

* OF HEX TO * 

* EBCDIC CHAR * 

* * 
***************** 



***** C 3 ********** 

* * 

* LOAD EBCDIC * 

* CHAR INTO 'TO * 

* LOCATION' * 

* * 
***************** 



. ♦CONVERSION *. NO 

*. FROM HEX TO . ♦ 

*. EBCDIC . + 



**** 

* * 

* Gl ♦- 

* * 
**** 



* GET 1 BYTE OF * 
♦HEX IN FORMAT ION + 

* AND INCREMENT ♦ 

* * 
***************** 



♦CONVERT 1 CHAR ♦ 

♦ OF HEX TO ♦ 

♦ EBCDIC CHAR ♦ 

♦ * 
***************** 



*****j^********** 

* * 

♦ STORE EBCDIC ♦ 

♦ CHAR INTO ' TO ♦ 
+ LOCATION' ♦ 

* * 
***************** 



AXTWO 

*****Q2*** ******* 



***************** 



*********** 



****F3 ********* 

* * 

* RETURN ♦ 

* * 
*************** 



***************** 
**** 



**** 
AXLOOK V 

*****j 2* ********* 



GET TABLE 
CHARACTER 



***************** 



.♦ DOES ♦ . 
. ♦CONVERSION ♦. NO 

♦.CHAR = EBCDIC. + 

♦. CHAR . ♦ 



AXGOT V 

*****C4 ********** 

♦ GET HEX ♦ 

♦ CHARACTER AND ♦ 

♦ STORE IN 'TO ♦ 

♦ LOCATION' ♦ 

♦ * 
***************** 



->+.END OF TABLE .♦ 



D3 


*. 


D4 ♦. 


.+ A HEX ♦. 


. ♦ ♦. 


NO . ♦ CHARACTER ♦. 


NO . + ALL 


r *. CONVERTED? .♦ 


*. CONVERSIONS 


[ ♦. .♦ 


♦ . MADE? . 


1 *• •* 


♦ . . ♦ 


V ♦. .♦ 


♦. . ♦ 


**** * YES 


♦ YES 


* * 




1 


♦ Gl ♦ 






* * 






**** 




I 


CVTLU V 


AXBYTE . ♦. 


**E3******* 


E4 ♦. 


* * 


. ♦ +. 


♦ SET RETURN ♦ 


.+ ODD BYTE 


♦ CODE TO X'OO' ♦ 


♦.COUNT SWITCH 


* * 


♦ . ON? 


* 


* 


♦. . ♦ 



**C5******* 



+ SET RETURN 
♦ CODE TO X'08' 



*********** 



****D5********* 

* * 

* RETURN ♦ 

* * 
*************** 



*****pq********** 



***************** 



* SET RETURN 
♦ CODE TO X' 00* 



*********** 



****H4 ********* 

* * 

* RETURN ♦ 

* * 
*************** 



**** 

* * 

* B3 ♦ 

* * 
**** 



**** 

* * 

* BU ♦ 

* * 
**** 
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Chart BV, IJZAD042: MORECORE (Section 1 of 3) 



**** 

* * 

* A3 * 

* * 
**** 



****A1********* 

* * 

* IJZAD042 * 

* * 
*************** 



*****A3** ******** 



***************** 



A42WAIT V 

*****C1* ********* 

* * 

* INCREASE CORE * 

* REQ ALLOW FOR * 

* MANAGEMENT * 

* * 
***************** 



*****£,!********** 

* * 
♦SET UP FOR THE * 

* OLT PARTITION * 

* SIZE * 

* * 
***************** 



**** 

* * 

* B3 *-> 



**** 
A42MCNEI V 

*****B3* ********* 
♦HIGHEST BYTE OF+ 
♦PARTITION LESS ♦ 

* HIGHEST MORE * 

* CORE BYTE ♦ 

* * 
***************** 



A42EXIT 

**C2**+*++* 



♦ SET RETURN 
♦ CODE TO X'04' 



*********** 



****D2********* 

* * 

* RETURN * 

* * 
*************** 



C3 ♦. 
. * ♦. 

REQ = MIN 

' *. . ** 
*. . * 
+ NO 



D3 ♦. 
. * ♦. 

IS MAX OK 



*****D 5* ********* 

* * 
'. YES ♦ SET AMOUNT * 

.* >* EQUAL TO MAY ♦ 

* * 

* * 
***************** 



A42ADD 

*****£ 5********** 

♦ * 

♦ SET LOCATION ♦ 

♦ EQUAL TO ♦ 

♦ HIGHLOC + 1 ♦ 

♦ * 
***************** 



* 








A42RTN02 . *. 






A42BR .♦. 








El" **.- 












E2 ♦. 




E3 ♦. 








. ♦ * 












♦ *. 




. ♦ *. 








.♦ WILL MAX 


*. 


NO 






* 




*. 


NO .* 1ST FREE *. 


YES 






♦ .PARAMETER FIT. 


* 




. — >* 




MIN > 8 




* 1 *. CORE ENTRY . 


* 1 






*. 


* 








* 




* 




♦. . * 


I 






♦. . ♦ 












♦. . ** 






*, . * 








♦ . . ♦ 












*. . ♦ 






♦. . ♦ 


V 






♦ YES 












♦ YES 






♦ NO 


***** 




























1 


♦ BW * 


**** 




























♦ B2* 


*BW ♦ 




























* * 


* F4 * — -. 

* * 1 

**** v 


























1 


* 




V 












V 






V 






. ♦. 












. ♦. 






. *. 




A42AMTGT .♦. 




Fl ♦. 












F2 ♦. 






F3 ♦. 




F4 ♦. 




. ♦ ♦ 












* *. 






. * * . 




. * ♦. 




. ♦ THIS 1ST 


*, 


NO 






* 


AVAILABLE 


*, 


NO 


. * *. 


YES 


. *ENOUGH CORE+. 


YES 


♦.MORE CORE REQ. 


*___ 1 




* 




AMT > MIN 




* > 


♦. MIN > 8 


* 


. — >*. FOR REQUEST . 


*— _ n 


♦. 


* 


1 






* 




*" 




♦ . . ♦ 




*. . ♦ 




♦. .+ 












♦. . *" 






*. . * 




♦. . ♦ 


I 


*. . ♦ 




i 








*. . ♦ 






♦. . ♦ 






V 


♦ YES 




**** 








♦ YES 






♦ NO 




* ♦ ' NO 


***** 








* 


* 




















1 


♦ BX ♦ 








♦ B3 

* 


* 






















* El* 
* * 


































**** 
















< 




J 


* 
















V 














HERE V 












. ♦. 




A42ERR02 V 








*****G1* 


K******** 








G2 


*. 






**G3+i 


!>***** 









1**** 
♦ BW * 
->* B2 * 

* * 
**** 



♦ SET AMOUNT * 
♦EQUAL TO COUNT ♦ 



***************** 



.* 1ST MORE *. NO 

♦ .CORE REQUEST .* -, 

♦. .* 1 

♦ . .♦ I 

*. .♦ V 



A42MAD 

*****H1********** 

* * 
♦GET POINTER TO * 
♦FIRST MORE CORE+ 

* ENTRY * 

* * 
***************** 

**** 

♦ BX * 

L_>* El * 



**** 

* * 

* A3 ♦ 

* * 
**** 



*****jj2* ********* 

* * 

* SET AMOUNT ♦ 

* EQUAL TO * 

* MINIMUM ♦ 

* * 
***************** 



*********** 



****H3********* 

* * 

* RETURN ♦ 

* * 
*************** 
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Chart BW. IJZAD04 2: MORECORE (Section 2 of 3) 



**** 

*BV * 
* E3, * — 
*E5 * 
**** 
A42FCUSE . 
B2 



******** 



* * ***c3 ********** 



******** 

**** 

* * 

* D2 *-> 



A42PASMI 

*****D2********** 

* * 

* POINT TO 1ST * 
♦FREE CORE ENTRY* 



***************** 



***************** 



*****F2 ********** 



SET AMT = 
REQUEST 



**************** 



**** 
*BX * 
>-->* Al * 



*****F3 ********** 

* * 

* LOAD THE * 

* LOCATION AT * 

* HOLD ADDRESS * 

* * 
***************** 



. SWITCH ON . * t 

"•v..-" 1 



***** 

*BV * 

* F4* 

* * 



FU *. 
* * 

MIN > 8 



*****q4* ********* 



***************** 



**** 

* * 
■* D2 * 

* * 
**** 



**F5******* 



*********** 



V 

****Q5********* 

* * 

* RETURN * 

* * 
*************** 
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Chart BX. IJZAD0U2: MORECORE (Section 3 of 3) 



**** 

*BW * 
* F2 *- 



. * *. NO 
♦.LENGTH = REQ .* 



*****A3** ******** 



***************** 



A42LEQR 



.* 1ST FREE *. NO 
♦. CORE = REQ . * 



***** c ^*** ******* 

* * 
♦UPDATE POINTER * 

* TO 1ST FREE * 

* CORE ENTRY * 

* * 
***************** 



* Dl *-> 



**** 
A42D00 

*****D1********** 
♦CHECK TO SEE IF* 
♦THIS IS THE 1ST* 

* MORE- CORE * 

* REQUEST ♦ 

***************** 



**** 
*BV * 
* Hl,*- 
*F4 * 
**** 



. *. 

El *. 

. ♦ ♦. 

* * 

COMPARE = 



*****■£! ********** 

* * 

* LOAD ADDR OF * 

* PREVIOUS MORE * 

* CORE ENTRY ♦ 

* * 
***************** 



A42SKIP 

*****Q1 ********** 



+ STORE ADDRESS ♦ 
♦ OF FREE CORE ♦ 



***************** 



*****H1 ********** 

* * 

* KEEP TRACK OF ♦ 

* HIGHEST BYTE ♦ 

* USED ♦ 

* * 
***************** 



V 
. ♦. 



.♦ LAST FREE 
->♦. CORE = REQ 



*****C2********** 



***************** 



NO 
1 


B3 *. 
. ♦ ♦. 
. * 
*. AREA > REQ 


i 

**** 

* 
Dl * 
. * 
**** 


♦. . ♦ 
♦ . . ♦ 
♦ YES 




*****C3******* 

* 

♦SET THE COUNT 

♦ REQUEST 



AU2LFENL 

*****q2 ********** 

* *' 
♦STORE LAST FREE* 

* CORE = NEWLOC * 

* * 

* * 
***************** 

**** 

* * 

* H2 ♦-> 

* * 

**** 



*****H2********** 

* * 
♦ADJUST ADDR AND* 

♦ SIZE TO ALLOW ♦ 

♦ FOR MGT AREA ♦ 

* * 
***************** 



*. HIGHLOC > LOC. ♦ -, 

♦. .♦ I 

I 



**** 

* * 

* H2 * 

* * 
**** 



*****K1 ********** 



***************** 



**J2****+** 



* SET RETURN 
♦ CODE TO X» 00' 



*********** 



****%2* ******** 

* * 

* RETURN * 

* * 
*************** 



***************** 



* 1ST FREE 
CORE = REQ 



***** S3 ********** 

* * 

* STORE THE NEW ♦ 

* ADDR INTO THE ♦ 

* POINTERS ♦ 

* * 
***************** 



NO .* LAST FREE ♦ 
♦. CORE OF REQ 



*****E4********** 



♦SET FIRST FREE * 
* CORE = NEWLOC * 



***************** 



*****G3********** 

* * 
♦ADJUST POINTER * 

* TO LAST FREE ♦ 

* CORE ENTRY ♦ 

* * 
***************** 



**** 

* * 

* H2 * 

* * 
**** 
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Chart CA. 



I JZ AD04 3 : FREECORE 



**** 

* A3 * 



***A1********* 

IJZAD043 * 
************** 



**C1******* 



* SET RETURN 
* CODE = X' 0U« 



*********** 



****D1 ********* 

* * 

* RETURN * 

* * 
*************** 



V 
*****C2 ********** 

♦ SET PARM * 

♦ POINTER TO THE * 

♦ BEGINNING OF ♦ 

♦ THE MGT AREA ♦ 



***** A3 ********** 

* REPLACE THE ♦ 

* FIRST ENTRY ♦ 
♦WITH ThE SECOND^ 

* ADDRESS ♦ 

* * 
***************** 

**** 

* * 
->* B4 ♦ 

* * 
**** 

***** B 3********** 



***************** 

! 

**** 

* * 

* F3 ♦ 

* * 
**** 



****** 



c********** 



***** D 2 ********** 

* * 
♦SET THE LOC TO ♦ 
♦THE FIRST MORE ♦ 

* CORE ENTRY ♦ 

* * 
***************** 



TO LOC. ♦ 



. + PARM ♦ . YES 

. ADDRESS FIRST. ♦ n 

♦ . ENTRY . ♦ 



V 
*****P2 ********** 

♦ SAVE POINTER ♦ 

♦ INCREMENT TO ♦ 

♦ NEXT ENTRY IN ♦ 

♦ MORECORE ♦ 

♦ * 
***************** 



A43LOCEP . ♦. 

Gl ♦. 

. ♦ ♦. 

. ♦ PARM + 

♦.ADDRESS LAST 

♦. ENTRY . + 

♦ . . ♦ 


YES 

-1 


. +. 

G2 ♦. 

. + ALL ♦ 

. ♦ MORECORE 

♦. ENTRIES 

♦. CHECKED 

*. . * 


♦. . ♦ 


V 


♦. . ♦ 


♦ NO 


**** 
* * 


♦ YES 






♦ A4 ♦ 

* * 










**** 






A43G3 \ 
*****H1^ 

♦ elimin; 

♦ PARM AI 
♦ENTRY Ff 
♦MORE COI 


1 
t******> 

\TE I'HE 
)DRESS 
*OM THE 
IE LIST 


* 
* 
* 

* 


♦*H2+* 

* 
♦ SET RI 
♦ CODE = 

* 


i=**** 
:turn 

X' 08 



NO . 


♦ HAVE 


ALL 


r ♦. 


ENTRIES BEEN 


1 


♦. CHECKED . 


1 


♦. . ♦ 


V 


♦ . . ♦ 


**** 


♦ YES 


* 






D5 ♦ 






* 






**** 







***** e3 ********** 
♦SET FWD POINTERS 

♦ OF PREVIOUS ♦ 
♦FREECORE ENTRY + 

♦ TO LOCATION ♦ 

* * 
***************** 

**** 

* * 

♦ F3 ♦ 

* * 

**** 

*****P3 ********** 



***************** 



*************** 



**** 

* * 

* BU + 

* * 
**** 



*********** 



****j2++******* 

* * 

* RETURN ♦ 

* * 
*************** 



**** 

* * 

* A4 ♦ 

* * 
**** 



*****A4* ********* 

* * 
♦MAKE PRECEEDING* 
♦MORE CORF ENTRY+ 

* THE LAST + 

* * 
***************** 

**** 



♦ BU 
* 
**** 
AU3H3 



A43NOTCN 

***** D J4* ********* 

♦STORE THE CHECK+ 
+ ENTRY ADDR. ♦ 

* UPDATE THE ♦<- 

♦POINTER TO NXT ♦ 
♦FREECORE ENTRY ♦ 
***************** 



A432AB 

*****q5********** 

♦ SET THE CHECK ♦ 
♦POINTER TO THE ♦ 

>*FIRST ENTRY IN ♦ 

♦ FREECORE + 

♦ * 
***************** 



A432B3 

*****C5 ********** 
+ STORE THE + 
♦ADDRESS OF THE ♦ 
♦NEW ENTRY. ADD ♦ 
+ THE LENGTH TO ♦ 
♦THE NEW ENTRY A+ 
***************** 



**** 

* * 

* D5 ♦-> 

* * 
**** 



D5 +. 
.♦IS NEW ♦. 
NO .♦ FREE CORE ♦. 

♦.CONTIGUOUS TO. ♦ 

♦ . CHECK . ♦ 



*****E 5* ********* 
♦ADD THE LENGTH ♦ 

♦ OF THE CHECK ♦ 

♦ ENTRY TO THE ♦ 

♦ NEW ENTRY ♦ 

♦ * 
***************** 



♦ NEW ENTRY 

CONTIGUOUS 

♦.FREE CORE. 



NO . +FIRST ENTRY*. 
- — *. = TO LAST .* 



*****H4* ********* 

♦ * 

♦ SET THE NEW ♦ 

♦ ENTRY TO THE ♦ 

♦ HOLD AREA * 

♦ * 
***************** 



***** G 5 ********** 
♦SET THE FWD PTR+ 

♦ OF THE ENTRY ♦ 
♦PRECEEDING THE ♦ 
♦CHECK ENTRY TO ♦ 

♦ NEW ENTRY ADDR. ♦ 
***************** 



***** H 5 ********** 
♦SET THE FWD PTR+ 
♦OF THE NEW ENT ♦ 
♦TO ADDR OF ENT ♦ 

♦ FOLLOWING CK * 

♦ ENT ♦ 
***************** 



**J4******* 



*********** 



****K4* ******** 

* * 

* RETURN * 

* * 
*************** 
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Chart CB. IJZAD04U: DIO (Section 1 of 2) 



****A1* ******** 

* * 

* IJZAD044 * 

* * 
*************** 



. *DOES MACRO 
. LEVEL = 2 
*. 



*. . * 
* NO 
**** 

*cc * 

* F5 *-> 

*H5 * 
**** 
S44RET4 V 

*****C1.**** ****** 

* * 

* RETURN CODE * 

* EQUALS FOUR * 

* * 

* * 
***************** 



****D1*** ****** 

* * 

* RETURN * 

* * 
*************** 



********* 

* * 

* PICK UP CDS . * 
->* ADDRESS FROM * 

* SCT * 

* * 
***************** 



**** 

* 

* El *— 



*****D2**** ****** 



***************** 



.CJL ▼ -I 

**** V 
. *. 
El 
. * 
♦IS REQU 

TCH . * •, 

*. .* I 

*. .* I 

*. .* V 



.♦IS REQUEST *. YES 
TCH . * 1 



**** 

* * 

* C3 * 

* * 
**** 



S44SECON 

*****E2* ********* 

* * 
♦SET UP PTRS TO * 

* SEARCH DEVICE * 

* TABLE * 

* * 
***************** 



.* *. NO 

♦.DEVICE SHARED.*- 



DEVICE SHARED. ♦ -, r ♦. FOUND .* 

*. .* If *. .* 

*. .* II *. .* 

*. . * V V *. . * 



* YES **** **** 
**** * * * 

*CC ** C3 * A3 * 
_>* B 5 * * * 
* * **** **** 
**** 



u 



-♦.END OF TABLE .♦ 



**** 

* * 

* HI ♦ — -, 

* * I 
**** 

4EXTIO V 



**** 

* * 

* CI ♦ 

* * 
**** 



S44EXTIO 

*****H1**** ****** 



***************** 
**** 



*****H2* ********* 



♦UPDATE POINTER ♦ 
* TO NEXT ENTRY ♦- 



***************** 



**** 
* A3 * 



♦IS DEVICE 

GRABBED OR 

*. PRIMARY . 



**** 

* * 

* CI * 

* ' * 
**** 



**** 
*CC * 

* J5 *— t 

* * 1 

**** 
S44CNFRM V 

*****A4* ********* 

+IJZAD037 * 
*_*_*_*_*_*_*_*_* 

* PUT OUT MSG * 
*E222I - TELL OP* 
♦TO QUIESCE NOW * 
***************** 



I" 



* IS IT AN * 
HIO REQUEST 



NO . * IS F2 
*. QUIESCED 



***** 
*CC ***** 
* A5**CC * 

■ ■ ■ F3 



* * * F3 * — i 
* * * ] 
**** I 
A44CONT1 V 



Jl *. 
. ♦ ♦. 

* 
IS CC ZERO 



**** 

* * 

* El ♦ 

* * 
**** 



***** C 3*** ******* 

* * 
♦PUT SUPERVISOR * 

* STATE ENTRY * 

* POINT IN GPR1 * 

* * 
***************** 



*****D3* ********* 



♦SAVE REGISTERS ♦ 



***************** 



*****E3 ********* 

* 

* 

♦ ISSUE SVC 46 

* 

* 

**************** 



*****F3 ********** 



***************** 



*****q3********** 



***************** 



IS Fl 
QUIESCED 



V 

*****E>q ********** 
♦IJZAD037 ♦ 
*-*-*-*-*-*-*-*-* 
♦ OUTPUT MSG *- 
♦E233I - TELL OP* 
♦NOT TO INIT FG ♦ 
***************** 



* * * — _ 

* * 1 
**** 

4ISHIO V 



FOR TCH .+ -,. 

♦ . .♦ V 
"ES **** 

* * 

* HI ♦ 

* * 
**** 

*****H4* ********* 

* * 

* * 

* ISSUE TCH ♦ t 

***************** v 
**** 

* * 

* Jl * 

* * 
**** 

S44AGN3 

*****j(t********** 



S44ISHIO 

*****A5*** ******* 

* * 
♦PUT SUPV STATE * 

->* ENTRY PT IN * 

* GPR1 * 

* * 
***************** 



*****B5********** 

* * 

* * 
♦SAVE REGISTERS * 

* * 

* * 
***************** 



*****C5********** 

* * 

* * 

* ISSUE SVC 46 * 

* * 

* * 
***************** 



*****D 5* ********* 



***************** 



*****£ 5* ********* 



***************** 



V 
*****P5* ********* 

* * 

* * 

* ISSUE HIO * 

* * 

* * 
***************** 

L**** 
* * 
>* Jl * 
* * 
**** 



->*. IS CC ONE .* >*. IS CC TWO .* >* 



♦CONVERT CC3 TO ♦ 
EBCDIC ♦ 



♦ YES 



*****K1********** 

* * 
♦CONVERT CCO TO ♦ 

♦ EBCDIC ♦ 



*****K2*** ******* 



♦CONVERT CC1 TO ♦ 
♦ EBCDIC ♦ 



*****K3** ******** 



♦CONVERT CC2 TO ♦ 
♦ EBCDIC ♦ 



***************** 



**** 

♦ CC ♦ 

->♦ Al ♦ 



***************** 



***************** 



***************** 



***** 
♦ CC ♦ 



***** 

♦ CC ♦ 

♦ Al* 
* * 



***** 

*CC * 

* Al* 

* * 
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Chart CC. IJZAD044: DIO (Section 2 of 2) 



* * % 

* * I 

**** V 



**** 
* A2 



* A2 * — n 

* * I 

**** 

RCO V 



**** 

* * 

* A4 *- 



* A<4 * i 

* * J 
**** V 



**** 

*CB * 

* B3 * — t 



. * EVENT *. YES 
♦.COUNTER FULL .* 



YES . *IS IT A TP *. 

*. TERMINAL 

*. DEVICE , * 



. * ARE EVENT *. 
. FIELDS FULL . 



*****CX** ******** 



♦POST CC IN TECB* 



***************** 



*****£)!* ********* 



***************** 



***************** 



*****q2 ********** 



***************** 



*****C2 ********** 

* * 

* RETURN TO * 
♦PROBLEM PROGRAM* 

* STATE ♦ 

* * 
***************** 



*****E2** ******** 



* RETURN CODE 

* ZERO 



***************** 



V 
****F2********* 

* * 

* RETURN * 

* * 
*************** 



**** * NO 


***** 


* * 




*CB ***** 


* E4 * 




* A5**CB * 


* * 




* * * Fl *-> 


**** 




* * * 
**** 


S44SNS V 


S44CKM 



***** glj ********** 



*BUILD SENSE CCW* 



***************** 



*****£[j********** 



***************** 



*****£)tl* ********* 



***************** 
**** 



**** 

* * 

* F3 * 

* * 
**** 



* E4 *-> 



**** 
S44C01 V 

*****E4* ********* 



***************** 



*. HIO .* t 

*. . * 1 

*. .* I 

*. .* V 



NO ***** 
**** * C b * 
♦CB ♦ ♦ A5+ 
->♦ C3 * * * 



SU4CKCC1 - *. 




G2 


*, 




. * 


*. 




. * 




*. NO 


*. IS CC = 1 


. * -, 


*. 




* 


*. 


, ** 


J 


*. 


. * 


V 


* YES 


**** 






* * 






* A2 * 






* * 






**** 



*****H2 ********** 

* * 

* POST CSW IN ♦ 

* TECB * 



***************** 



.* JLb UNIT *. NO 

*. CHECK IN .* -, 

*. STATUS .* 

*. .* I 
*. .♦ V 



YES **** 

* * 

* A2 * 

* * 
**** 



.♦SENSE EVENT+. YES 
. ETR FULL . ♦ 



**** 

* * 
I— >♦ A2 ♦ 

* * 
**** 



NO 

**** 

* * 
->♦ A4 ♦ 

* * 
**** 



♦ F3 ♦ 

* * 
**** 



IS F2 
QUIESCED 



YES .♦ IS Fl 
*. QUIESCED 



***** 
♦CB ♦ 



S44ENTQU 

*****E5* ********* 

♦IJZACKTP ♦ 
*_*_*_*_*_*_*-*_* 

* CALL CHECK TP * 

* MODULE ♦ 

* * 
***************** 



V 
. ♦. 



YES .♦ ♦ 
*.IS TP ACTIVE 



***** 

*CB ♦ 

♦ CI* 

* * 



***** G 5* ********* 

♦IJZAD037 * 
*_*_*_*_*_*_*_*_* 

♦ OUTPUT MSG. * 

♦ E221D-CAN SYS ♦ 

♦ BE QUIESCED ♦ 
***************** 



S44QSOKR .♦. 
H5 



YES .♦ *. 
*.IS ANSWER NO .* 



***** 

*CB ♦ 

* cl* 

* * 



YES .♦ *. 
*.IS ANSWER YES.* 



***** 
*CB ♦ 
* A4* 



*****K5 ********** 
♦IJZAD037 ♦ 
*-*-*-*-*-*-*-*-* 

♦ PUT OUT MSG * J 

♦ E199I - * 
♦INCORRECT REPLY+ 
***************** 
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Chart CD. IJZAD047: Routine 



****A1********* 

* * 

* IJZAD047 * 

* * 
*************** 



GET ROUTINE 
MASK 



***************** 



V 
.*. 
CI ' *. 
.* *. **** 

. * *. NO * * 
*.RTN TO BE RUN.* >* F3 * 



*****£)!********** 



UPDATE RTN 
NUMBER 



***************** 



V 
.*. 



. * *. YES .* *. NO 
*. RTN NEED MI .* >*. MI SELECTED .* 



G47RET2 

*****F1* ******** * 



* SET RTN CODE * 



***************** 



*****E3* ********* 

*IJZAD037 BQ* 

*_*_*_*_*_*_*_*_* 

>* * 

* MSG E210I * 

* * 
***************** 

**** 



* F3 *-> 

* * 
**** 

G47RET1 V 

*****P3** ******** 

* * 

* CHANGE RETURN * 

* ADDR TO NEXT * 

* RTN * 

* * 
***************** 



.♦MACRO LEVEL*. 
= 2 



*****Q2*** ******* 

* * 

♦SET RETURN CODE* 

->* to x'oa* * 



G470K 

*****H1 ********** 



***************** 



***************** 



****J1********* 

* * 

* RETURN * 

* * 
*************** 
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Chart CE. IJZADO60: Header Message 



**** 

* 

A3 



* A3 * — n 

* * \ 
**** v 



****A1********* 

* * 

* IJZADO60 * 

* * 
*************** 



Bl ♦ . 

. * ♦. 

. * *. 

. ERROR MESSAGE. 1 



*****C1 ********** 

* * 

* PREFIX HEADER * 

* WITH '*• * 



***************** 



.♦IS SYMBOLIC*. YES 

♦ . NAME TO BE .+ 

*. PRINTED . * 



**** 

* * 

* B3 *-> 



*****A4* ********* 

* * 

* MOVE SYMBOLIC * 
>* NAME INTO * 

♦MESSAGE BUFFER + 

* * 
***************** 



L60NOERR 

*****£)1 ********** 

* * 
♦MOVE SECTION ID+ 

♦ INTO PRINT ♦ 

♦ BUFFER ♦ 

* * 
***************** 



***** El ********** 



* GET ACTIVE 
♦ROUTINE NUMBER 



******** 



|c******** 



**** 
L60NODEV 

*****B3 ********** 



♦GET ECA NUMBER ♦ 

* * 

* * 
***************** 



. ♦ REFERENCE ♦. NO 

NUMBER . ♦ 

♦ .SUPPLIED . ♦ 



***** D3 ********** 

♦ CONSTRUCT ♦ 

♦ REFERENCE ♦ 
♦NUMBER IN WORK ♦ 

♦ AREA ♦ 

♦ * 
***************** 



***** E3 ********** 

♦LYYCONVT ♦ 
*_*_*_*_*_*_*_*_* 

♦ CONVERT TO ♦ 

♦ EBCDIC ♦ 

♦ * 
***************** 



***** Fl ********** 

♦LYYCONVT ♦ 
*_*_*_*_*_*_.*_*_* 

♦ CONVERT TO ♦ 

♦ EBCDIC ♦ 

♦ * 
***************** 



.♦ TECB *. NO 
->♦. ADDRESS 



♦.SUPPLIED .♦ ♦ 

♦. .♦ I 
♦. .♦ V 



L60NRFNM 

*****P3 ********** 

* * 

♦ LOAD BUFFER ♦ 

♦ ADDRESS IN ♦ 
♦PARAMETER LIST ♦ 

* * 
***************** 



*****Q3********** 

♦IJZADO70 ♦ 
*_*_*_*_*_*_*_*_* 

* * 

* ISSUE MESSAGE ♦ 

* * 
***************** 



****H3********* 
* 
RETURN ♦ 
* 

*************** 



**** C 5 ********* 

* * 

* LYYCONVT ♦ 

* * 
*************** 



*****D5********** 

* * 
♦LOAD INPUT AND ♦ 
♦OUTPUT ADDRESS ♦ 

* AND COUNT * 

* * 
***************** 



♦ DO CONVERSION ♦ 
♦(HEX TO EBCDIC) ♦ 



***************** 



LYYCNV8 

V 
****P5********* 

* * 

* RETURN ♦ 

* * 
*************** 



**** 
* 
♦ Jl 



♦-> 



**** 
L60CNVRT 

*****jl*** ****** 

♦LYYCONVT 
*_*_*_*_*_*_*_*_ 

+ CONVERT TO 
* EBCDIC 
* 
**************** 

I ."** 

!-->♦ A3 
* 
**** 



**** 

* * 

* HU ♦ 

* * 
**** 



*****j2********** 

* * 

* GET DEVICE * 

* ADDRESS FROM ♦- 

* TECB ♦ 

* * 
***************** 



J3 ♦. 

* 

POSTED 



**** 








* * 








* H4 ♦- 


1 






* * 
**** 






L60CNDR 


.♦. 






H4 




*, 




.* 




*. 




. ♦ 




*, 


YES 


>*.-$NDR 


FLAG ON . 


*— i 


*, 




. * 




*. 




. * 


J 


* 




* 


V 




" *" 


NQ 


**** 




1 


***** 






* 


* B3 




L. 


->* Jl 


* 






* 


***** 






**** 






>♦ ji ♦ 

* 
**** 



Charts 117 



Chart CF. IJZAD061: Description Message 



****Al ********* 

* * 

* IJZAD061 * 

* * 
*************** 



V 
.*. 

Bl *. 



* INITIALIZE * 

* COMMENTS * 

* PARAMETERS * 

* * 
***************** 

**** 



**** 
A61TEST 



* * ** *c2* ******** * 

* * 

* INITIALIZE * 

* DESCRIPTION * 

* PARAMETER * 

* * 
***************** 



.♦LINE COUNT *. NO 
= . * 



E2 *. 
. * *. 

COUNT = 



♦DECREMENT LINE 
>* COUNT 



***************** 



****F1********* 

* * 

* RETURN ♦ 

* * 
*************** 



NO 



*****q2* ********* 

* * 

* * 
♦SET COUNT = MAX* 

* * 

* * 
***************** 



***************** 



*****F3********** 

* * 

* LOAD ADDR OF * 

* THE NEXT LINE * 

* AND COUNT * 

* * 
***************** 



**** 

* * 

* Dl * 

* * 
**** 



* MOVE LINE TO 

* PRINT BUFFER 



***************** 



*****j2**** ****** 
♦IJZADO01 AC* 
*_*_*_*_*_*_*_*_* 

* * 

* ISSUE MESSAGE ♦ 

* * 
***************** 



**** 

* * 

* Dl * 

* * 
**** 
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Chart CG. IJZAD062: CCW Message (Setup) 



**** 

* * 

* A2 * 



****&!********* 

* * 

* IJZAD062 * 

* * 
*************** 



L62RT0C V 

**A2******* 

* SET * 

* INCOMPLETE * 
♦PARAMETER LIST 

* FLAG * 

* * 
*********** 



V 
L62PCC . ♦. 
B2 * 



♦.PRINT CC MSG . ♦- 



.♦ IS CCW ♦. NO 
♦. ADDRESS GIVEN. ♦ 



**** 

* * 

♦ Dl ♦-> 



**** 

* * 

* A2 ♦ 

* * 
**** 



I^.XPTD CC GIVEN. ♦ n 



**** 
L62PCAW V 

*****D1* ********* 



***************** 



El ♦. 

. * *. 

. ♦ ♦. 

♦ .CCW COUNT = 0. 



**** 

* * 

* G5 ♦ 

* * 
**** 



**** 

* * 
+ A2 ♦ 

* * 

**** 



.♦ RCVD CC ♦. NO 
♦.ADDRESS GIVEN. ♦ 



**** 

* * 

♦ E2 ♦-> 



L62RCCOK 

*****E2** ******** 

* * 
♦PUT RCVD. XPTD ♦ 

♦ CC IN BUFFER ♦ 



***************** 



*****33********** 



♦RESTORE CALLERS ♦ 
— >♦ REGISTERS ♦ 



********** 



****C3********* 

* * 

* RETURN ♦ 

* * 
*************** 



.♦ TECB ♦. NO 
->♦. ADDRESS GIVEN. ♦ 



**** 

* * 

* BU ♦ 

* * 
**** 

1 

*****34********** 

* * 

* GET NEXT CCW ♦ 

* ADDRESS ♦ 

* * 

* * 
***************** 



YES .♦ FINISHED ♦ 
♦.POINTING CCW 



**** 

* * 

* Dl ♦ 

* * 
**** 



♦. .♦ 

1 



**** 

* * 

* G5 ♦ 

* * 
**** 

.♦. L62CTCBA . ♦. 

E3 ♦. E4 ♦. 

. ♦ ♦. . ♦ ♦. 

. +DEV ADDRESS+. NO .+ ♦. NO 

GIVEN .♦ >♦. POSTED EVENT .♦ -. 



*****Fl* ********* 

* * 
♦CONVERT CCW/ICW+ 

♦ TO EBCDIC ♦ 



***************** 



*****HX* ********* 

* * 

* * 
♦PUT + IN BUFFER+ 

* * 

* * 
***************** 



*****G2** ******** 

* * 

* * 
♦PUT ♦ IN BUFFER+ 

* * 

* * 
***************** 



. ♦ ♦. 
. +FIELD COUNT*. NO 
♦ . > EVENT COUNT. ♦ 



♦ . .♦ ] 

♦. .♦ I 

* . .♦ V 
♦ YES **** 

I : G5 : 

**** **** 

* * 

* E2 ♦ 

* * 
**** 



**G3******* 

* * 

♦ SET FIELD ♦ 
♦ CHECK COUNT = ♦ 

♦ FIELD COUNT ♦ 

* * 
*********** 



L62EVLO V 

**G4******* 

* * 

♦ SET FIELD ♦ 

♦ CHECK COUNT = ♦ 

♦ EVENT COUNT ♦ 

* * 
*********** 



L62PRT V 

*****j^********** 

♦IJZADO70 CM* 
*-*-*-*-*-*-*-*-* 

♦ PRINT CCW * 

♦ MESSAGE ♦ 

♦ * 
***************** 



*****K1*** ******* 



L62PRNT 

♦♦♦♦♦H2 ********** 
♦IJZADO70 CM* 
*_*_*_*_*_*_*_*_* 

* * 

* PRINT CC MSG * 

* * 
***************** 



*****J2* ********* 

* * 

* * 

* CLEAR BUFFER ♦ 

* * 

* * 
***************** 

I 

**** 

* * 

* H5 ♦ 

* * 
**** 



. * ♦. 
. * ♦. YES 
♦.CORRECT FIELD. ♦ n 

*•.. .*•' 1 

♦ . .♦ V 



**** 

* * 

* E2 ♦ 

* * 
**** 



**J3******* 



*********** 



**** 

* * 

* G5 ♦ 

* * 
**** 



L62RC0C V 

**G5******* 

* SET * 

♦ INCOMPLETE ♦ 

♦ PARAMETER LIST * 

♦ FLAG ♦ 

* * 
*********** 

**** 

* * 

♦ H5 ♦-> 

* * 
**** 

L62RET 

*****H5*** ******* 



***************** 



♦♦♦*J5********* 

* * 

* RETURN * 

* * 
*************** 



K3 *. 

.♦ ♦. 

.♦FIELD CHECK*. 
. COUNT = . 



***************** 



**** 

* * 

* BU ♦ 

* * 
**** 



**** 

* * 

* G5 ♦ 

* * 
**** 
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Chart CH. IJZAD063: CSW Message (Setup) (Section 1 of 2) 



**** 
* * 

* A2 * 



**** 

* * 

* A4 * 



**** 

* * 

* A5 * 



****A1 ********* 

* * 

* IJZAD063 * 

* * 
*************** 



Bl *. 
. * *. 
* 
PRINT CSW1 



A6 3 PRINT 

*****A2* ********* 
♦IJZADO70 CM* 
*_*_*_*_*_*_*_*_* 

* PRINT CSW * 

* MESSAGE * 

* * 
***************** 

**** 



. * PR I NT RCVD 
CSW1 



PRINT CSW2 



YES 



A63SKIP8 V 

*****C1********** 

* * 
♦PUT ' XPID' CSW1* 

* INTO PRINT * 

* BUFFER * 

* * 
***************** 



*****D1********** 



***************** 



*****£!********** 



***************** 



*_*_*_*_ 



***************** 



* PUT RCVD CSW1 * 
>* INTO PRINT * 

* BUFFER * 

* * 
***************** 



*****B4 ********** 



* PUT CSW2 INTO * 

* PRINT BUFFER * 



***************** 



**** 

* 4 

* D5 * 

* 4 
**** 



A63EXIT 

***** D 2********* 



RESTORE 
REGISTERS 



***************** 



V 

****£2********* 

* * 

* RETURN * 

* * 
*************** 



A63CSW2E . *. 

C3 *. 
. * *. 


NO 
* 


* 
CSW 


IN 


ERROR 



*****Q3********** 

* * 

* PRECEDE CSW * 

* WITH '*' * 



***************** 



. * CSW1 *. 
. ADDRESS GIVEN. * 



*****P3********** 

♦A63EVENT CJ* 
*_*_*_*_*_*_*_*_* 

* FIND FIELD IN * 

* TECB * 

* * 
***************** 



YES .* CSW2 ADDR 
*. GIVEN 



*****E4* ********* 

+A63EVENT CJ* 
*_*_*_*_*_*_*_*_* 

* FIND FIELD IN * 

* TECB * 

* * 
***************** 



A63GOPRT 

*****A5* ********* 
♦IJZADO70 CM* 
*_*_*_*_*_*_*_*_* 

>* PRINT CSW * 

* MESSAGE * 

* * 
***************** 



*****Q5********** 



***************** 



V 
****C5********* 

* * 

* RETURN * 

* * 
*************** 



**** 

* 

* D5 



n 



A63SKIP2 

*****D5********** 

* * 

* PUT RVCD CSW2 * 

* INTO PRINT * 

* BUFFER * 

* * 
***************** 



*****F5********** 



***************** 



Gl 


*. 


. * *. 


NO . * * 


r *. PRINT CSW2 


1 *. .* 


*. .* 


V *. .* 


**** * YES 


* 




A2 * 




* 




**** 




V 


****+m ******** 


* 


* PUT CSW2 INTO 


* BUF1 


? ER 



***************** 



*****J1 ********** 



♦CONVERT CSW2 TO* 
* EBCDIC ♦ 



***************** 



*****Kl ********** 

♦A63SETPR CJ+ 
*_*_*_*_*_*_*_*_* 

♦MOVE CSW2 INTO * 

♦ BUFFER * 

* * 
***************** 



G2 *. *****g3********** 

. * *. * * 

* *. NO * CONVERT CSW1 TO* 

PRINT CSW2 .* •• r * EBCDIC ♦ 



ir 



***************** 



A63PCSW2 

*****H2 ********** 



* PUT XPTD CSW2 
♦IN PRINT BUFFER* 



***************** 



**** **** ; 


^ 


* * 




B2 * J3 ♦ 




* * 




**** **** 




*****H3* 


:******** 


♦A63SETPR CJ* 


*_*_*_*_*_*_*_*_* 


r — >*MOVE CSW1 INTO ♦ 




* BUFFER * 




* * 




***************** 




:*** 


* ***** 


♦ H3 ♦ * 


* * J3 *__ n 
***** * 

**** V 
. *. 
J3 ♦. 


. * *. 


YES .* RCVD CSW2 *. 


r *. CHECKED . * 


1 *. .♦ 


1 ♦. .♦ 


V *. .* 


**** * NO 


* * 1 


* A5 * 


* * ( 




► *** 


1 



*****K3********** 



* TURN ON CSW2 

* CHECK FLAG 



***************** 



**** 

* * 

* A2 * 

* * 
**** 



**** 

* * 

* AU * 

* * 
**** 
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Chart CJ. IJZAD063: CSW Message (Setup) (Section 2 of 2) 



****A1********* 

* * 

* A63SETPR * 

* * 
*************** 



****A4********* 

* * 

* A63EVENT * 

* * 
*************** 



♦ .KEY PROVIDED .* 



+****Ci** ******** 



************** 



*****E1********** 



***************** 



*****q! ********** 



***************** 



< 



***************** 



****£3********* 

* * 

* RETURN * 

* * 
*************** 



.♦EVENT COUNT*. NO 

*. LT OR EQ TO . * 

+ .FLD COUNT. * 



***************** 



EVENTS = 



***** B 5*** ******* 



***************** 



.FIELD WANTED 



****G4* ******** 

* * 

* RETURN * 

* * 
*************** 



RESIDUAL 
COUNT 
. PROVIDED 



*****jl*** ******* 



♦ iMOVE COUNT INTO* 

* BUFFER * 



***************** 



****Ki********* 

* * 

* EXIT * 

* * 
*************** 
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Chart CK. IJZAD064: Sense Data Message (Setup) 



**** 

* * 

* A3 * 



****A1********* 

* * 

* IJZAD064 * 

* * 
*************** 





NO . * DEVICE *. 




r *. ADDRESS GIVEN. 


* 


[ *. .* 




1 *. .* 




V *. .* 




**** * yes 




* * 






* Gl * 






* * 






**** 






V 




A64TCB . *. 




CI *. 




. * *. 




YES .* TECB *. 






r *. ADDRI 


:ss . 


* 



*****E;L********** 

* * 

* * 

* GET TECB ADDR * -, 

1 

***************** v 



♦PUT XPTD SENSE * 
* IN BUFFER * 



***************** 



A64200A V 

*****A3********** 



SET ERROR 



***************** 



***** b2 ********** 
♦A64218AA CK* 
*_*_*_*_*_*_*_*_* 

* * 

* ISSUE PRINT * 

* * 
***************** 



. * PRINT *. NO 
. ' RCVD' SENSE . * -. 

*. .* V 



**** 

* 

* m 



**** 

* * 

* BU * 

* * 
**** 



YES . * TECB 
*. ADDRESS 



I 



**** 

* * 

* ju * 

* * 
**** 



A64214 

***** D3 ********** 



*FLDS TO CHECK ■ 



ADDRESS GIVEN.* -. * EVENTS * 

*. . * * * 

*. . * * * 

*. ,* V ***************** 



**** 

* * 

* BU * 

* * 
**** 



,* *. **** 

. * * . YES * * 
♦.SENSE COUNT 0.* >* H4 * 



.* EVENT *. 
YES . *COUNT GT OR*. 

*. EQ FIELD 

*. COUNT . * 



*****£){j* ********* 



***************** 



**** 


* NO 


* * 


**** 




* Gl * 


* * 




* * 


* F2 *-> 




**** 


* * 

**** 






A64210A V 




*****P2*=i 


|c******** 



**** * NO 

* * 

* F2 * 

* * 
**** 






F4 



.♦ NO DEVICE *. YES 

*. REQUIRED . * -, 

*. .* 



♦PUT RCVD SENSE * 
* IN BUFFER ♦< 



***************** 



**** 

* * 

♦ Gl *-> 



* NO **** 

* * 

* H4 * 



**** 
A64200 .*. 
Gl 



NO .*RCVD SENSE *. 
*. COUNT 



YES .* *. 
*.FLD WANTED ? .* 



****A5********* 

* * 

* A64218AA * 

* * 
*************** 

**** 

* * 

* B5 *-> 



NO .* OUT COUNT *. 
* . GT MAX . * 



V 
*****£ 5********** 

* * 

* * 

* USE MAX * 

* * 

* * 
***************** 



A64218A V 

*****D5********** 



***************** 



* CONVERT SENSE * 

* TO EBCDIC * 



***************** 



*****P5********** 

♦IJZADO70 CM* 
*_*_*_*_*_*_*_*_* 

* * 

* PRINT * 

* * 
***************** 



*. SENSE . * 1 

*. . * V 



* YES ***♦ 

* * 

* C2 ♦ 

* * 
— ****- 



GIVEN . * n 

*. .* V 



* YES **** 

* * 

* A3 * 

* * 
**** 



*. SENSE ERROR .* -, 



*****H2*******^** 

* * 

* * 

* MOVE * TO MSG * 

* * 

* * 
***************** 



.SENSE COUNT 



NT 0.* n 

■•'• 1 



*. . * 


V 


* NO 


**** 


1 


* * 




* A3 * 


V 


* * 


**** 


**** 


* * 




* A2 * 




* * 




**** 





A64210B 

*****J2**** ****** 
♦A64218AA CK* 
*_*_*_*_*_*_*_*_* 

* * 

* ISSUE PRINT * 

* * 
***************** 



* H4 * 

* * 
**** 



IN TECB .* -, 

*. .* V 



**** 

* * 

* F2 * 



— ****- 

* * 

* H4 * 

* * 
**** 



**** 
A64212 

*****H4 ********** 

* * 

* * 

* SET ERROR * 

* * 

* * 
***************** 

**** 



**** 
A64EXIT 

*****jtj********** 



***************** 



****KU* ******** 

* * 

* RETURN * 

* * 
*************** 



**** 

* * 

* B5 * 



****H5********* 

* * 

* RETURN * 

* * 
*************** 
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Chart CL. IJZAD065: Data Message (Setup) 



****A4********* 

* * 

* A65260 + 

* * 
*************** 



** B 1******* 

IJZAD065 
*********** 



**** 






**** 


* * 






* * 


* C2 * — -. 

* * 1 

**** v 






* C3 +— , 

* * J 

**** v 






A65240 . *. 






A65250 .*. 


C2 * 






C3 *. 


, * 


*. 




. * ♦. 


. * PRINT 


*. 


NO 


. * PRINT 


>*. RECEIVED 


DATA. 


* 


>*. WRITTEN DATA 



*****Q^********** 

* * 

* GET XPTD DATA * 

* ADDRESS AND * 

* COUNT * 



*****£!********** 

♦A65260 CL* 
*_*_*_*_*_*_*_*_* 

* * 

* PRINT * 

* * 
***************** 



->* C2 * 

* * 
**** 



*****D2** ******** 



***************** 



*****E2********** 
♦A65260 CL* 



*_*_ 



_*_*_ 



_*_*_* 



* PRINT * 

* * 
***************** 

**** 

* * 
->* C3 * 

* * 
**** 



*****D3 ********** 

* * 

* GET WRITTEN * 

* DATA ADDR AND * 

* COUNT * 

* * 
***************** 



*****E3 ********** 
*A65260 CL* 
*_*_*_*_*_*_*_*_* 

* * 

* PRINT * 

* * 
***************** 



♦..ADDRESS GIVEN. *- 



C4 *. 
. * *. 

COUNT > 



**** 

* * 

* D4 *-> 



*****E4* ********* 



***************** 



*****£} 5********** 



***************** 



V 
****E5********* 

* * 

* RETURN * 

* * 
*************** 



A65EXIT V 

*****P3********** 



****G1********* 

* * 

* LYYCONVT * 

* * 
*************** 



*****jjl ********** 

* * 
♦GET ADDRESS OF * 
+ INPUT AND ♦ 

* OUTPUT ♦ 

* * 
***************** 



♦ CONVERT BITS ♦ 

♦ STORE BITS IN ♦ 

♦ OUTPUT ♦ 

♦ * 
***************** 



V 
****K1 ********* 

* * 
+ RETURN ♦ 

* * 
*************** 



***************** 



****G3********* 

* * 

* RE1URN ♦ 

* * 
*************** 



****K3********* 

* * 
+ RETURN * 

* ' * 
*************** 



*****G4********** 



***************** 



* DON'T ♦ 

CONVERT BIT 
+. OFF .♦ 



*****j4* ********* 
♦IJZADO70 CM* 

*-*-*-*-*-*-*-*-* 

* * 

* ISSUE MESSAGE ♦ 

* * 
***************** 



A65263 V 

*****G5* ********* 



***************** 



*****H5 ********** 

♦LYYCONVT CL* 

*_*_*_*_*_*_*_*_* 

>♦ ♦ 

♦ CONVERT DATA * 

* * 
***************** 



A65265 

*****K5 ********** 



***************** 

1**** 
* * 

->* D4 * 
* * 
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Chart CM. IJZ&DO70: Output Writer 



****A2** ******* 

* * 

* IJZADO70 * 

* * 
*************** 



***** B2 ********** 

* * 

* CLEAR OUTPUT * 

* BUFFER * 



***************** 



* cu *- 



*****C3* ********* 



***************** 



: ""1 



.* FORCE *. YES 
♦ .SYSLOG OUTPUT.* 



**** 
L70ALTPR 

*****£(*********** 

♦IJZAD037 BQ* 
*_*_*_*_*-*_*_*_* 

r — >* * 

* PRINT A LINE * 

* * 
***************** 



**DU******* 



* RESET PRINT * 
* ONLY SWITCH * 



NO .* *. 

. — *.pp OPTION ON . 

*. .* 



.*MSG LEVEL ■ 
*. (HDR) 
*. 



. *PP LEVEL = *. YES 
*.3 (PRINT ALL).* 



. *MSG AND PP *. 

. LEVEL = 2 . 

*. .* 



*********** 



****E4********* 

* * 

* RETURN * 

* * 
*************** 



. *MSG AND PP *. YES 

. LEVEL = 1 .* t 

*. •* - I 

*. .* I 

*. .* V 



NO **** 

* * 

* CU * 

* * 
**** 



L70 PRINT 

**K2******* 



*********** 

1**** 
* * 
->* C4 * 
* * 
**** 
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Chart CN. IJZAD071: Prompt Device 



****C2 ********* 

* * 

* IJZAD071 * 

* * 
*************** 



P71DVC0M 

*****D2********** 
♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E1U7I * 

* * 
***************** 



***** £2 ********** 

* * 

* STORE ADDRESS * 

* OF OUTPUT * 

* MESSAGE * 

* * 
***************** 



* LINES 
PRINTED = 



****G2********* 

* RETURN TO * 

* CALLER * 

* * 
*************** 
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Chart CP. IJZA.D072: Prompt Test 



****C2********* 

* * 

* IJZAD072 * 

* * 
*************** 



*****T}2*** ******* 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E148I * 

* * 
***************** 



*****E2 ********** 

* * 

* STORE ADDRESS * 

* OF OUTPUT * 

* MESSAGE * 

* * 
***************** 



* LINES *. HO 
PRINTED = 8 .* 



****G2********* 

* RETURN TO * 

* CALLER * 

* * 
*************** 
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Chart CQ. IJZAD073: Prompt Option 



****C2********* 

* * 

* IJZAD073 * 

* * 
*************** 



*****q2 ********** 
♦IJZAD037 BQ* 



* MESSAGE E149I * 

* * 
***************** 



***** £2 ********** 

* * 

* STORE ADDRESS * 

* OF OUTPUT * 

* MESSAGE * 

* * 
***************** 



.* LINES *. NO 
♦.PRINTED = 20 .* 



****G2** ******* 

* RETURN TO * 

* CALLER * 

* * 
*************** 
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Chart CR. IJZ&D076: REI Initializer #1 



**** 

* M * 



****A1********* 

* * 

* IJZAD076 * 

* * 
*************** 



*. IS REI ACTIVE. ♦- 



LAJ02010 V 

**A4****** 



*********** 



. * IS AN OLT *. 
*. ACTIVE ? 



**C4******* 

* RESET * 
* OUTSTANDING * 

* EXECUTIVE * 
♦REQUEST FLAG * 

* * 
*********** 



LAJ04010 

****q5********* 

* * 
>* IJZAD077 * 

* * 
*************** 



. * REI *. 

. SUPERVISOR . 

♦.SUPPORT ?.♦ 



IS SYS005 *. NO 
ASSIGNED . * 



*****D2*** ******* 
♦IJZAD037 BQ* 
*-*-*-*-*-*-*-*-* 

* * 

* MESSAGE E163I ♦ 

* * 
***************** 



**D4******* 



*********** 



IS SYS005 
TYPE D7 ? 



♦ IS A 1052 * 
AVAILABLE ? 



STXIT-OC *. 
SUPPORTED . =• 



****E3 ********* 

* IJZADO00 AT * 

* DTERM ♦<- 

* * 
*************** 



**FH******* 

* SET' OLT * 

* ENTERED FOR ♦ 
♦CLEAN UP' FLAG * 

* * 

* * 
*********** 



V 
****GU********* 

* * 
♦EXIT TO THE OLT+ 

* * 
*************** 



. ♦ IS BG *. 

♦.PARTITION GT . 

♦.OR EQ X8K. ♦ 



**** 

* * 

* A4 ♦ 

* * 
**** 



LAJ01020 

*****j2 ********** 
♦IJZAD037 BQ+ 
*_*_*_*_*-*_*_*_* 



♦ MESSAGE E164I ♦ 

* * 
***************** 

**** 



♦ K2 ♦-> 



****K2********* 

* ♦ 

* IJZAD052 ♦ 

* * 
*************** 
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Chart CS. IJZAD077: REI Initializer #2 



****A1********* 

* * 

* IJZAD077 * 

* * 
*************** 



♦**** B 1 ********** 

* ALLOCATE * 

* BACKGROUND * 

* SPACE FOR * 

* RETAIN/370 * 

* * 
***************** 



*C1******* 



*********** 



*****£)!********** 

♦IJZADOIO BA* 
*_*_*_*_*_*_*_*_* 

* LOAD AND * 

* RELOCATE REI * 

* NUCLEUS * 
***************** 



***E1********** 

* * 

ENABLE TP LINE 

* * 

**************** 



**F1******* 



*********** 



**G1******* 



* INITIALIZE * 
*BCT LOOP COUNT * 



*********** 



**** 

* * 

* 32 * 

* * 
**** 



**D2******* 

* * 

♦RESET 'REMOTE* 

♦READ TERMINATE' * 

* FLAG * 

* * 
*********** 



**E2******* 



♦RESET 'REMOTE* 
♦INTERRUPT' FLAG* 



*********** 



**F2+****** 

* * 

* SET 'REI * 
♦ ACTIVE' FLAG IN* 

♦ SCT * 

* * 
*********** 



*****G2** ******** 
♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* *_ 

* MESSAGE E163I * 

* * 
***************** 



B3 *. 
. * *. 

PERMANENT 



. * >*. TIME OUT 



AAKDSCNT 

**D3******* 

* * 

* SET 'NO * 

* TERMINATE * 

♦MESSAGE' FLAG* 

* * 
*********** 



*****E3** ******** 

♦IJZAD078 CT* 
*_*_*_*_*_*_*_*_* 

* TERMINATE * 

* RETAIN/ 370 * 

* * 
***************** 



*****P3 ********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE El 6 41 * 

* * 
***************** 



AAKEXIT 

V 
****G3** ******* 

* * 
>* IJZAD052 ♦ 

* * 
*************** 



**** 

* * 

* B2 * 

* * 
**** 
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Chart CT. IJZAD078: RETAIN/370 Terminate 



****A1********* 

* * 

* IJZAD078 * 

* * 
*************** 



♦ B4 ♦ 

* * 
**** 



.♦RETAIN/ 370 ♦ . NO 
ACTIVE 



* YES **** 

* * 

* F4 ♦ 

* * 
**** 



**D1******* 

* * 

RESET REI 

ACTIVE FLAG 



*********** 



. * PERMANENT *. YES 
ERROR . * 



.♦SHOULD NOT 
->♦. OCCUR 



L78CABTM . 

Fl ♦. 
. ♦ OLTEP ♦. 
.♦CANCELED OR+. YES 

♦ . PREV WRT . ♦ 

*, COMPLETE .♦ 



NO .* ♦. YES 
♦. TIME UP . ♦ 



L78ERMSG 

**F2******* 

* * 

♦ SET LOCAL 
♦ PRINT ONLY 

* SWITCH 

* * 
*********** 



*****G2 ********** 
♦IJZAD037 BQ+ 
*_*_*_*_*_*_*_*_* 

* ISSUE MESSAGE ♦ 

* E167I ♦ 

* * 
***************** 



*****H2 ********** 
♦IJZAD037 BQ+ 
*_*_+_*_*_*_*_*_* 



***************** 



L78NWAIT 

*****j2** ******** 



♦♦ SVC 25 TERM ♦♦ 
♦♦ REMOTE READ ♦♦ 



***************** 



***** £3 ********** 

* * 

♦ ADD * SHOULD NOT+ 
>♦ OCCUR' TO ♦ 

♦ MESSAGE E167I ♦ 

* * 
***************** 



♦ RESTORE ♦ 

♦ EFFECTIVE ♦ 
♦PARTITION SIZE ♦ 

♦ * 
***************** 



**c4******* 

* * 

* * 
♦RESET REI FLAGS+ 

* * 

* * 
*********** 



*****£4*** ******* 

♦IJZAD037 BQ+ 
*_*_*_*_*_*_*_*-* 

* * 

* MESSAGE El 6 91 ♦ 

* * 
***************** 

**** 

* * < 

* FU ♦-> 

* * 
**** 

8 EXIT 

V 

* * 

* RETURN ♦ 

* * 
*************** 



***K3*********** 



* 


. . ♦" 




* NO 




1 




**** 


* 


* 


* 


B4 ♦ 



**************** 



**** 

* * 

♦ BU ♦ 
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Chart CU. IJZAD085: Device Update (Section 1 of 2) 



**Al**+***++* 
* 
IJZAD085 * 

* 

************* 



* Bl * 

* * 
**** 

DU3B1 V 

****+Bl****** 



****A4********* 

* * 

* ADAPTER * 

* * 
*************** 



***** B 4 ********** 



♦GET PUB ADDRESS* 



**** ******* 



*****d ********** 

* * 

* MOVE CHAN AND * 
♦UNIT ADDRESS TO* 

* SCT * 

* * 
***************** 



***************** 



*****E1 ********** 

♦ADAPTER CU* 
*_*_*_*_*_*_*_*_* 

* SUBROUTINE * 

* * 
***************** 



V 
*****pi ********** 

* MOVE * 

* APPROPRIATE * 

* INFORMATION * 

* INTO SCT * 

* * 
***************** 

**** 



DEVCODE 

*****G1 ********** 

* MOVE SYM UNIT * 
♦ADDR TO CCB DEV* 

* FEATURES TO * 

* DEVICE TABLE * 

* * 
***************** 



**** HI ********* 

* * 

* RETURN * 

* * 
*************** 



***** £2 ********** 



♦MOVE INFO INTO * 
* SCT * 



***************** 



*****P2 ********** 
♦ADAPTER CU* 
*_*_*_*_*_*_*_*_* 

* * 

* SUBROUTINE * 

* * 
***************** 



LAST DEVICE 



LINE 
SWITCH ON 



DU3D4 V 

*****j2********** 
+ MOVE LAST * 

* DEVICE * 

* INFORMATION * 

* INTO SCT * 

* * 
***************** 



**** 

* * 

* Gl * 

* * 
**** 



.* IS DEVICE 


*, 


NO 


*. 2703 




* — , 




* 


1 


*. . * 




J 


*. . * 




V 


* YES 




***** 








*CV * 








* Bl* 








* * 








* 


00 V 






*****E3********** 






* 


♦MOVE INFO INTO 


* 


* S( 


:t 




* 



***************** 



LINE 
SWITCH ON 



*****jj3 ********** 

* * 

* RESET LAST * 
♦DEVICE FLAGS IN* 

* SCT * 

* * 
***************** 



**** 

* * 

* Gl * 

* * 
**** 



***************** 



****E4********* 

* * 

* RETURN * 

* * 
*************** 



D2700A 

*****G4********** 

♦IJZAD056 AS* 

NO *_*_*_*_*_*_*_*_* 

* >* DATA PROTECT * 

* MODULE * 

* * 
***************** 



. * DATA 
. PROTECT ON 
*. 



*****j4********** 



* BYPASS TEST. * 

* GET NEXT TEST * 



***************** 



****KU********* 

* * 

* RETURN * 

* * 
*************** 



*****D 5* ********* 
♦IJZAD041 BU* 
*_*_*_*_*_*_*_*_* 

* CONVERT UNIT * 

* ADDRESS * 

* * 
***************** 



***** £5 ********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 
♦MESSAGE 04E227D* 

* * 
***************** 



*****P5 ********** 

* * 

* SET ADAPTER * 
♦CODE INTO BYTE * 

* 19 OF SCT * 

* * 
***************** 



****Q5********* 

* * 

* RETURN * 

* * 
*************** 



*****H5* ********* 



♦SET TP g LINE 0* 
->* SWITCHES ON * 



***************** 



*****j5* ********* 

* * 

* MOVE CCB SCT * 

* DATA INTO TP * 

* CCB 6 SCT * 

* * 
***************** 



*****K5* ********* 
* * 

♦UPDATE PRIMARY * 
♦DEVICE POINTER * 



***************** 



**** 

* * 

* Bl * 
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Chart CV. IJZAD085: Device Update (Section 2 of 2) 



*cu * 

* D3 * — t 

* * 
**** 

3E1 V 



*****£!***** ***** 



**** 

* * 

* B3 * 

* * 
**** 

I 

. *. 

B3 *. 

. * *. 

* * 

DEVICE 231U 



***************** 



**** 

* * 

* Dl * 

* * 
**** 

DU3G1 



, * >*. DEVICE 2321 .* 



*. 



* YES 



V 



**** 

* * 

* Dl *-> 

**** 

*****£)!********** 

* * 

* MOVE * 

* INFORMATION * 

* INTO SCT * 

* * 
***************** 

**** 



*****ei* ********* 



***************** 



****pi********* 

* * 

* RETURN * 

* * 
*************** 



*. . * V 



**** 

* * 

* B3 * 

* * 
**** 



*****D2* ********* 

* * 

* MOVE * 

* INFORMATION * 
.* INTO SCT * 

* * 
***************** 



C3 *. 

. * *. 

* * 

DEVICE TAPE 

*. . * 

*. . * 

*. . * 

* YES 



*****D3 ********** 

* * 

* MOVE * 

* INFORMATION * 

* INTO SCT * 

* * 
***************** 



*****E2********** E3 *. 

* * . * *. 

* MOVE 7-TRACK * NO . * * 

* INFORMATION *< + .9-TRACK TAPE 

* INTO SCT * *. .* 

* * *. . * 
***************** *. * 



**** 

* * 

* El * 

* * 
**** 



**** 

* * 

* El * 

* * 
**** 



*****G3********** 

* * 

* MODULE PHASE * 

* ENCODE * 

* INFORMATION * 

* * 
***************** 



**** 

* * 

* El * 

* * 
**** 



CDEQP 

*****C4********** 

♦SET UP PTRS TO * 

* DEV CODE AND * 
>* INTERNAL CODE * 

* TABLE * 



***************** 



* MOVE * 

* INFORMATION * 

* INTO SCT * 

* * 
***************** 



**** 

* * 

* El * 

* * 
**** 



*****£)5********** 

♦IJZAD037 BQ* 

*_*_*_*_*_*_*_*_* 

>* * 

* MESSAGE E030I * 

* * 
***************** 



***** £5 ********** 



***************** 



****F5********* 

* * 

* RETURN * 

* * 
*************** 
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Chart CW. IJZAD094: External Interrupt Handler 



****/»!******** 

* 

* IJZAD094 
* 
************** 



***** 3i ********** 



***************** 



* ♦ DOES ENTRY ♦ . NO 
= INTRP . * 



VYES . * *. 
*. IS TECB FULL . * 



*****pi*** ******* 

* POST EVENT * 
♦CODE, I/O ADDR, * 

* EXT. OLD PSW, * 

* IN TECB. * 

* * 
***************** 



♦.END OF TABLE 



***************** 



****H1 ********* 

* * 

* RETURN ♦ 

* * 
*************** 
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Chart CX. IJZAD098: I/O Interrupt Handler (Section 1 of 3) 



**** 
* 

* A4 *- 



* * I 

**** y 



****A1* ******** 

* * 

* IJZAD098 * 

* * 
*************** 



*****B1 ********** 



***************** 



*****d********** 



***************** 



*****El ********** 

* * 
*SET UP POINTERS* 

* TO SEARCH * 

* DEVICE TABLE * 

* * 
***************** 



Fl *. 

. * *. 

. * * 

♦.DEVICE FOUND 

*. . * 

*. . * 

*. . * 

* NO 
**** 

* * 

* Gl *-> 

* * 
**** v 

8ENDTT .*. 

Gl *. 

. * *. 

. * * 

♦.END OF TABLE 

*. .* 

*. . * 

♦ . . ♦ 

* NO 



*****H1*** ******* 

* * 

♦ INCREMENT ♦ 
-* POINTER TO ♦ 

♦ TABLE * 

* * 
***************** 



S98INTH .♦. 

C3 *. 
. * *. 


NO . * HAS CC1 *. 

*. OCCURRED .*<- 

*. . . * 


I *. .* 


V *. .* 


**** i 
CY * 
Al* 
* * 


■ YES 


* 




\ 

**D3*t 


/ 
!<***** 



*********** 

j .... 

L->* G2 * 
* * 

**** 



*. DEVICE ACTIVE.* 



. *CCB ADDR = * 
. CCB ADDR IN 
* . Rl . * 



* Gl * 

* * 
**** 



**** 

* * 

* AT * 



**** 

*CZ 
■ F5 



* F5 * — i 

♦ J5 ♦ 1 
**** V 



**** 
*CY * 

* Jl * — -, 

♦ K2 * 
**** j 

8IORET V 



S98IORET 

**G3******+ 



* >+.SIO PASSBACK .*- 



*****H2* ********* 

* * 

* RESTORE ' ♦ 

* SUPERVISOR * 

* REGISTERS * 

* * 
***************** 



****j2********* 

♦ RETURN VIA * 

♦ REGISTER 7 * 

♦ * 
*************** 



*********** 



*****H3********** 

* * 

* RESTORE * 

* SUPERVISOR * 

* REGISTERS ♦ 

* * 
***************** 



****j3********* 

* RETURN VIA * 

* GPR11 * 

* * 
*************** 



*****C5* ********* 

* * 

* PUT CONDITION * 
->*CODE IN EBCDIC * 

* FORMAT ♦ 

* * 
***************** 



-*.COND CODE = 2.* 



*. . * V *. . * 



**** 

* * 

* G3 ♦ 

* * 
**** 



**** 

* * 

* G3 * 

* * 
**** 



* YES 

I**** 
*CY *. 
->* Al * 



**** 

.*. S98CONE 
FH *, **f5******* 

. * ♦. * * 

. * *. NO * SET CC1 * 
+ .COND CODE = 3.+ >♦ OCCURRED BIT ♦ 



*********** 



I**** 
*CY ♦ 
_>* Al * 



**G4******* 



*********** 



****. 

*CY * 
>* Al * 
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Chart CY. IJZAD098: I/O Interrupt Handler (Section 2 of 3) 



*CX-C3,G4 # ES,F5 



**** v 

S98INTS . *. 

Al 



**** 

* * 

* A3 *—-. 

* * J 

**** v 

S98FULL2 .*. 
A3 



.♦UNIT CHECK *. NO 
*. IN STATUS . ♦ n 

+ . .♦ V 



*cz * 

* H3* 



TECB FULL 



♦NO ♦ ♦*♦ 

* * 

* J2 ♦ 



*****Cl********** 

* * 

* CALCULATE * 
♦ADDRESS OF TECB+ 

* FOR POSTING ♦ 

* * 
***************** 



*****£!*** 



YES . ♦ SENSE CTR +. 
+. FULL . * 



****C3 ********** 



************* 



S98FLDA 

*****D4* 



**E3******* 



♦TURN ON SUPP * 
♦DATA TRANS FLAG* 



******** 



♦CALCULATE SENSE* 
->* FLD ADDR FOR * 

* POSTING * 

* * 
***************** 



*****£4 ********** 



********* 



*********** 



V 



.♦ *. NO +SET CSW POSTED * 

*. SIO PASSBACK . * >* INDICATION IN * 

♦. .* * TECB * 

*. . * ♦ * 

*. .* ***************** 



*****q1 ********** 

* * 

* POST SIO CC * 

* * 
***************** 



HI *. 
CC = 1 



**jl******* 
* * 

* TURN OFF * 
♦EVENT OCCURRED * 

♦ BIT * 



S980NEH 

*****G2+++***+++* 



* POST CSW ♦ - 

* ♦ 

* ♦ 
***************** 



>* POST CSW * 

* ♦ 

* ♦ 
***************** 

**** 



♦ .SIO PASSBACK .* •, 



**** 

+CZ ♦ 

->♦ Al * 



************* 



*****pt| ********** 



*********** 



♦cz * 

->* Al * 



**** 

* * 

* A3 * 

* * 
**** 



+.COND CODE 



(JONJJ uuut = J. . * 1 

*"*• •♦'* 1 

*. . * V 



***** 
*cx * 

♦ G3* 



**** 

* * 

* A3 * 

* * 
**** 
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Chart CZ. IJZAD098: I/O Interrupt Handler (Section 3 of 3) 



**** 

*CY * 
* E3 *—-, 
*F4 * 
**** J 
S98FILIN V 

*****A1********** 



**** 

* * 

* A3 *—, 

* * ] 
**** [ 

8 LOOP V 



* A5 *— t 

* * J 
**** V 

S98CKDE . *. 
A5 



***************** 



**Bl******* 

* TURN ON * 
♦SUPPR. WRONG * 

* LENGTH INDIC * 
* BIT * 

* * 
*********** 



*****C1 ********** 

* * 

* * 

* SAVE CSW * 

* * 

* * 
***************** 



*****D1 ********** 



***************** 



*****£!********** 



♦PICK UP DEVICE * 
* ADDRESS * 



***************** 



*****p^**** ****** 

* * 

* ISSUE SIO TO * 

* SENSE CCW * 



***************** 



Gl 


*. 


CC = 


11 . < 
*. .* 




y no 



REISSUE SIO 



***************** 



B3 *. 

* * 

CC = 

*. . * 
*. . * 
NO 



*****C3********** 



***************** 



->*. TECB CTR FULL.* n 

*. .* 1 

*. . * J 

*. .* V 



NO **** 

* * 

* G2 * 

* * 
**** 



***** cu ********** 



***************** 



**** 

* * 

* E3 * 

* * 
**** 



**** 

* * 

* E3 * 



**** 
S98NGOOD 

***** E3 ********** 



->* RESTORE CSW 



***************** 



YES . +EVENT 


FLDS * 


r *. FULL 


1 *. . * 


J *. .* 


V *. . * 


**** * NO 


* 




G2 * 




* 




**** 




v 


*****£({******** 


* 


* SET EVENT FLD 


* FLAGS 



**** 

* * 

* Q2 *--- , 

* * 1 
**** 

8TIO V 



S98TIO 

*****G2* ********* 



. * *. YES 
*. CC = 2 OR 3 . * -, 

*■.. ..-* 1 

*. .* V 



ISSUE TIO 



***************** 



**P3******* 



*********** 



**G3******* 



*********** 



**** 

* * 

* E3 * 

* * 
**** 



H2 *. 

* 

CC = 2 

*. 

*. . * 
* NO 



**** 
*CY * 

* A3 *-> 

* * 
**** i 

S980KERR .= 



*.DE ALREADY IN.* — 



***************** 



**FU******* 



*********** 



*****GU* ********* 



************ 



*****H4********** 



* POST DEV * 
♦ADDRESS IN TECB* 



I**** 
* * 
->* E3 * 
* * 
**** 



*****ji********** 



***************** 



*****K1********** 



***************** 

1**** 
* * 
->* A3 + 
* * 
**** 



*. 


. * V 


***************** 


♦ YES ***♦ 


1 




* * 


**** 




* A5 * 


* * 




* * 


<-->* G2 * 




**** 


* * 


V 


**** 


. ♦. 




J3 ♦. 




. ♦ ♦. 




.♦ ATTN IN ♦. NO 




REQUEST . * -J 




*'*. " .♦** J 




*. .* V 




* YES **** 






* * 






* A5 * 






* * 






**** 




V 




**K3******* 




* * 




* POST EVENT * 




COMPLETE * 




* * 




* * 




*********** 




**** 




* * 




L->* A5 * 




* * 






**** 





**B5******* 



*********** 



**C5******* 



*********** 



**E5******* 



*********** 



*CX * 

* G2* 

* * 



**G5******* 



*********** 



**H5******* 



*********** 



**j5******* 



*********** 



**** 

*CX * 

->* G2 * 
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Chart DA. IJZADOAA: $DDATE 



****B2**+****** 

* * 

* IJZADOAA * 

* * 
*************** 



**£)!******* 



AAADATE V 

*****D2 ********** 

* GET DATE FROM * 

* THE * 
♦COMMUNICATIONS * 

* REGION * 

* * 
***************** 



REFORMAT DATA * 
TO DD/MM/YY * 



***************** 



* RESTORE * 

* CALLER'S * 

* REGISTERS * 

* * 
***************** 



****G2********* 

* * 

* RETURN * 

* * 
*************** 
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Chart DB. IJZADOABs $DTIME 



* * 

* IJZADOAB * 

* * 
*************** 



.♦MACRO LEVEL*. NO 
CORRECT .* 



♦.TIMER FEATURE. ♦ > 



*****D2**** ****** 

* * 

* * 
♦GET TIME OF DAY+ 

* * 

* * 
***************** 



***** £2 ********** 



♦PUT ' F' IN LOW ♦ 
♦ORDER HALF BYTE+ 



***************** 



—♦.2ND TIME THRU. ♦ 



.♦1ST RESULTS+. NO 

♦ . LT 2ND .♦ 

♦. RESULTS .♦ 



**H3******* 



*********** 



*********** 



♦ RESTORE ♦ 

♦ CALLER'S ♦ 

♦ REGISTERS ♦ 

♦ * 
***************** 



****K2*** ****** 

* * 

* RETURN ♦ 

* * 
*************** 
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Chart DC. IJZADOAC: LETGO 



****A1********* 
* 
* IJZADOAC 

*************** 



.* *. **** 

. * MACRO LEVEL*. NO * * 
= 2 . * >* G2 * 



CI *. 
. * *. 

* 
CDSADR = 



***** D 1 ********** 

* * 

* PICK UP THE * 
♦DEVICE ADDRESS * 

* FROM THE SCT * 

* * 
***************** 



*****D2**** ****** 

* * 

* PICK UP THE * 
♦DEVICE ADDRESS * 

* FROM THE CDS * 

* * 
***************** 



S20GO 

*****E1********** 

* * 

* SET UP TO * 

* SEARCH THE * 

* DEVICE TABLE * 

* * 
***************** 



♦ .DEVICE FOUND .* >♦. 



S20FOUND V 

**Gl******+ 

* TURN OFF ♦ 
♦ VALID.GRAB + 

♦ ALLOCATE AND ♦ 
♦PRIMARY BITS ♦ 

* * 
*********** 



♦ DEVICE ♦. YES 
ASSIGNED TO .♦ 

♦ . FG . * 



**jl******* 



**** 

* * 

♦ G2 ♦-> 



**** 
S20RCFR 

**G2******* 

* * 

♦ RETURN CODE ♦ 

♦ X'04' ♦ 



*********** 



S20RTURN 

V 
****H2*** ****** 

* * 

* RETURN * 

* * 
*************** 



*****F3** ******** 

* * 
♦UPDATE POINTER ♦ 

->* TO THE NEXT *- 

* ENTRY * 

* * 
***************** 



**J2******* 



*********** 



****K1*** ****** 

* * 

* RETURN * 

* * 
*************** 



*********** 



V 
****K2********* 

* * 

* RETURN * 

* * 
*************** 
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Chart DD. IJZAOLTP: $$BOLTEP 



****A3********* 

* * 

* IJZAOLTP * 



********* 



*****B3********** 



***************** 



**C3******* 



*** * ****** * 



****D3********* 

* * 

* RETURN * 

* * 
*************** 
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Chart DE. IJZATOLT: $$BTOLTP, Terminate OLTEP 



* IJZATOLT * 
* * 

♦ SSBTOLTP * 
*************** 



. * ERROR IN 
CLEANUP 



**C1******* 

* * 

♦SET ABNORMAL * 

* TERMINATION * 

* FLAG * 



*****q;1********** 

♦ + 3VC 8 TEMP ♦ + 
** EXIT FROM + + 
** B-TRANSIENT ♦♦ 

♦ ♦ STATE ♦ + 
** ** 
***************** 



* INITIALIZE 
* REGISTERS 



let******** 



**** 

* * 

* B2 * 

* * 
**** 



L$B00020 V 

**B2******* 
♦INITIALIZE * 

♦ LUB, PUB. AND* 
— _>* QUEUE TABLE * 

* POINTERS * 



********** 



**** 

* * 

* C3 * 



B$LOPl 



B$L0P1A 
B$L0P1B 

*****C3 ********** 



+ .LUB ASSIGNED . ♦ >* 



B$SK101 V 

**D2******* 



UPDATE LUB 
POINTER 



*********** 



***************** 



PUB ACTIVE 



*****H1* ********* 



***************** 



L$EXICLN V 

*****jl* ******** * 

♦IJZADOOO * 
*_*_*_*_*_*_*_*_* 

* CLEANUP AND * 

* TERMINATE MSG ♦ 

* * 
***************** 



TABLE END .* 



**P2******* 



*********** 



V 
****G2* ******** 

* * 

♦ $$BEOJTR ♦ 
*************** 



♦SET ABNORMAL * 

* TERMINATION * 

* FLAG * 

* * 

*********** 



**** 
c * 

♦ B5 ♦ 

* * 
**** 



♦♦SVC 4fa ENTER ♦+ 
♦♦ SUPERVISOR ♦+ 
♦♦ STATE ♦+ 
** ** 

***************** 



B$LOP2 



F3 ♦. 
. ♦ ♦. 

* 
PUB ACTIVE' 



♦ RETURN FROM ♦ 

♦ SUPERVISOR ♦ 

♦ STATE ♦ 

♦ * 
***************** 



*****j3** ******** 



♦♦ SVC 25 HALT ♦♦ 
** I/O ♦♦ 



***************** 



NO .♦ ♦. YES 
♦.MORE ENTRIES . ♦- 



**** 

* * 

* B5 ♦ 

* * 
**** 



*****B5 ********** 

♦IJZAD057 ♦ 
*_*_*_*_*_*_*_*_* 

♦ RESTORE TAPE ♦ 

♦ LABELS ♦ 

♦ * 
***************** 



L$CLNUP 



*****pi|**** ****** 

* * 

* * 
->+GET CCB ADDRESS+ 

* * 

* * 
***************** 



*■.. ..'* 

*. .♦ V 



**** 

* * 

* C3 * 

* * 
**** 



D5 ♦. 

. ♦ ♦. 
* 

REI ACTIVE 
♦ . 

♦. . ♦ 
♦ . . ♦ 

YES 



L$B00005 V 

*****£ 5* ********* 

♦IJZAD072 ♦ 
*-*-*-*-*-*-*-*-* 

♦ TERMINATE ♦ 
+ RETAIN/370 ♦ 

* * 
***************** 



L$B00010 

*****F 5* ********* 

♦♦ SVC 9 RETURN ♦♦ 
** TO ** 
♦♦ B-TRANSIENT *♦ 
*♦ STATE ♦♦ 
** ** 

***************** 
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Chart EA. 



IJZACEOM: 



CE Communication 



* * 

* IJZACEOM * 

* * 
*************** 



1052 
AVAILABLE 



*****34 ********** 

* SET FLAG ' CHK * 
*1052' GET ADDR * 

->*OF SCHED RETURN* 

* ' $DTRMLNK I * 



********** 



it****** 



***** C 3 ********** 



***************** 



****C4* ******** 

* * 

* EXIT TO SCHED * 

* * 
*************** 



*****D3 ********** 

♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* CALL CECOM * 

* * 
***************** 



****E3********* 

* * 

* RETURN * 

* * 
*************** 
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Chart EB. IJZACKTP: Check Teleprocessing 



SETMl 

*****QX ********** 

+IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E317I * 

* * 
***************** 



**** 

* * 

* J3 * 



****A2********* 

* * 

* IJZACKTP * 

* * 
*************** 





**** 

* * 

* A4 * 

* * 
**** 

1 


**A3******* 
* * 
* RESET LOCAL * 
PRINT ONLY FLAG*<— 


A . 

CKRPLY . ♦. 

A4 *. 
. * *. 
YES . * *. 
*. REPLY = YES . ♦ 



♦.CHECK TP ONLY. ♦- 



-♦.DEV ON CHAN 0.* 



FIRST PUB V 

*****£) 2********** 



♦ GET ADDR OF 1ST* 

* PUB * 



***************** 
**** 



*********** 



B4 *. 
. * ♦. 
, * 
*. REPLY = NO 



**C4****** 



*********** 

**** 

* * 

* D4 ♦ -> 

* * 
**** 

TSTIME 

*****D4****** 

*$$BZTIME 
*_*_*_*_*_*_* 



EQ* 



♦CALL TRANSIENT * 
* * 

***************** 



SETM5 

*****q5********** 

♦IJZAD037 BQ* 

*_*_*_*_*_*_*_*_* 

_ — >* * 

♦MESSAGE 04E135D* 



***************** 



**** 

* * 

* M * 

* * 
**** 



**** 

* * 

♦ D5 ♦ — n 

*....♦ 

DEVCH V 



**************** 

**** 

* * 

♦ E5 ♦-> 



**** 



V 



♦ .DEV TYPE = TP. * >♦ SET TP FLAG ♦ 



*****jl* ********* 
♦IJZAD037 BQ* 
*-*-*-*-*-*-*-*-* 

* * 
♦MESSAGE 04E135D* 

* * 
***************** 



**** 

* * 

* A4 * 

* * 
**** 



*****j2* ********* 

* * 

* LOAD REG 15 * 

* WITH TIMING * 

* TEST RESULTS ♦ 

* * 
***************** 



****K2+ ******** 

* * 

* RETURN * 

* * 
*************** 



*********** 







PUBEND . i 


l«. 


*****F1 ********** 


F2 ♦. 


* * 


. ♦ ♦. 


♦ GET ADDR OF ♦ 


NO . ♦ ♦ . 


♦ NEXT PUB +<— 


♦. LAST PUB .+ 


* * 


*. . ♦ 


* * 


♦ . . ♦ 


***************** 


♦ . . ♦ 


1 


♦ YES 


**** 






* * 






•-->♦ E2 ♦ 






* * 






**** 


V 


• +. 


CKTPFLG . *. 


Gl ♦. 


G2 ♦. 


. ♦ ♦. 


. ♦ ♦. 


NO . +TP DEV CODE+. 


NO .♦ ♦. 


*. FOUND . ♦<— 


♦.CHECK TP ONLY.+ 


[ *. .* 


*. . ♦ 


1 *. .♦ 


♦. . ♦ 


V ♦. .♦ 


♦. . ♦ 


**** * YES 


♦ YES 


* ***** 








* D5 ♦ ♦ 








♦ ♦ HI ♦-> 








***** * 








**** 








SETM3 V 


V 


♦*H1* ****** 


**H2******* 


* * 


* * 


♦ SET LOCAL * 


♦ RESET $TPCK ♦ 
♦ FLAG ♦ 


♦PRINT ONLY FLAG+ 


* * 


* * 


* * 


* * 


*********** 


*********** 






**** 








* * 


< 






* J2 *-> 








* * 








**** 




1 


f 


EXRET i 


r 



-♦.CHECK TP ONLY. ♦ 



SETM2 V 

*****H3** ******** 
♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

♦ PRINT MESSAGE ♦ 

♦ E136I + 

♦ * 
***************** 



*****j3** ******** 
♦SET $NXTST FLAG+ 

♦ AND LOAD R15 ♦ 

♦ WITH ADDR OF ♦ 

♦ $DTRMLNK ♦ 

♦ * 
***************** 



****K3********* 

♦ RETURN TO ♦ 

♦ SCHEDULER ♦ 

♦ * 
*************** 



+ J2 ♦ 

* * 

**** 



SETM4 

*****F4*** ******* 

*IJZAD037 BQ+ 
*-*-*-*-*-*-*-*-* 

* * 

* MESSAGE El 331 ♦ 

* * 
***************** 



♦. TYPE 72-77 



**F5******* 

* * 

♦ SET TIME + 

♦ DEPENDENT ♦ 

♦ DEVICE FLAG ♦ 

* * 
*********** 



**** 
* 
J3 * 
* 

**** 



V 

. ♦. 

G5 ♦. 



YES .♦ 
*. ACTIVE 



.TPDEV FLAG ON. ♦ -, 

+ . . ♦ V 



*****j5* ********* 



***************** 



♦ NO 

! 


**** 

* * 

* HI ♦ 

* * 


1 


*** 


**** 


**** 


* 




* * 


D4 ♦ 




♦ E5 ♦ 






* * 


*** 




**** 
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Chart EC. IJZACMNT: Print Comment 



* * 

* IJZACMNT * 

* * 
*************** 



*****S3********** 

* SAVE CALLER'S * 

* REGS. INIT. * 

* BASE REG. GET * 

* COUNT * 

* * 
***************** 



*. COUNT GT 80 



*****D3********** 

* * 

* * 

♦SET COUNT TO 80* 



***************** 



♦GET THE MESSAGE* 

♦ ADDR AND BYTE ♦ 

♦ COUNT ♦ 

♦ * 
***************** 



.* ROOM FOR 
*. MESSAGE 



***************** 



*****q3* ********* 



***************** 



****H3********* 

* * 

* RETURN ♦ 

* * 
*************** 
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Chart ED. IJZACOMP: Compare 



****ai* ******** 
* * 

* IJZACOMP * 

* * 
*************** 



IJZACOMP V 

***** 3i ********** 

* * 

* SAVE CALLER'S * 

* REGS SET UP * 

* BASE REGISTER * 

* * 
***************** 



♦ A3 
AT PRESENT, THIS TEST 
DOES NOT APPLY TO 
DOS/TOS. IT IS LEFT IN 
THE LISTING FOR 
COMP AT ABILITY PURPOSES 
WITH AN OS OLTEP PROGRAM. 



V 
. *. 

CI *. 



* Dl *-> 

* * 

**** 



*****(j2********** 

* * 

* SAVE THE TECB * 
>♦ ADDRESS FOR ♦ - 

* COMPARE'S * 

* * 
***************** 



*****D2********** 
♦GET POINTERS TO* 
♦RECEIVED DATA, ♦ 
->♦ EXPECTED DATA, ♦ 
♦AND DATA COUNT ♦ 
* * 

****************** 



. ♦ CC = ♦. NO 

->♦. EXPECTED CC .♦ 

♦ . +A3 . ♦ 



♦♦C5+++++++ 

* * 
♦SET CONDITION^ 

->+CODE ERROR FLAG+ 
♦ +A3 ♦ 

* * 
*********** 



.♦ CSW = ♦. NO 
->♦. EXPECTED CSW .♦ 



**D5******* 



*********** 



*****F2 ********** 



*************** 



VYES .+DATA COUNT *. 

*. = EXPECTED .♦ 

♦ . COUNT . * 



**H2+****** 

* * 
♦SET THE DATA 

♦ COUNT ERROR 
* FLAG 

* * 
*********** 



.♦DEV STATUS ♦. NO 

->♦. = EXPECTED .♦ 

♦. STATUS .♦ 



. ♦ CHAIN 
STATUS 
♦ .RELEVANT 



.♦CHAN STATUS+. NO 

->♦. = EXPECTED . * 

♦. STATUS .+ 



. ♦ RESIDUAL 
COUNT 
♦ . RELEVANT 



G1 ♦. 
. ♦ *. 
.♦ RESIDUAL ♦. NO 

->♦. COUNT = .♦ 

♦ .EXPECTED . ♦ 
♦ .COUNT. ♦ 
♦ . . ♦ 
♦ YES 



.♦ SENSE ♦. YES 
♦ . RELEVANT . * 



***** H 4*+ ******** 

* * 

♦ GET THE SENSE ♦ 
>* COUNT ♦ 



. ♦ ANY ERROR ♦. 
. FLAGS SET . 



*****j2 ********** 



♦GET ERROR EXIT 
->* ADDRESS 



**** 

* * 

* Dl ♦ 

* * 
**** 



********** 



*****j4* ********* 



♦DECREMENT SENSE* 
♦ COUNT BY ONE ♦ 



♦♦E5+++++++ 

* * 

♦ SET DEVICE 
->♦ STATUS ERROR 

♦ FLAG 

* * 
*********** 



**P5******* 

* * 

♦ SET CHANNEL + 
->♦ STATUS ERROR ♦ 

♦ FLAG ♦ 

* * 
*********** 



**G5*++++++ 

* * 
♦SET RESIDUAL ♦ 

->♦ COUNT ERROR ♦ 
♦ FLAG * 

* * 
*********** 



V 
****K1********* 

* * 

* RETURN ♦ 

* * 
*************** 



***************** 



****K2********* 
♦RETURN TO ERROR+ 

* EXIT + 

* * 
*************** 



***************** 



.♦SENSE COUNTS. NO 

*. = EXPECTED . ♦ 

♦. COUNT .* 



**** 

* * 

* Dl ♦ 

* * 
**** 



**K5******* 



*********** 
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Chart EE. 



IJZACONV: 



Convert 



****A2********* 

* * 

* IJZACONV * 

* * 

*************** 



* SAVE CALLER'S * 

* REGISTERS * 
♦INITIALIZE BASE* 

* REG * 

* * 
***************** 



***** C2 ********** 
♦INITIALIZE REGS* 

* WITH 'FROM * 

* ADDR' 'TO * 

* ADDR'. AND * 

* COUNT * 
***************** 



. 


*. 


CVTA 




D2 ♦. 


*****£)3 ********** 


. ♦ ♦. 


* * 


.♦IS ADDR IN *. YES 


♦ DOUBLE COUNT ♦ 


*. HEX .* 


>*FOR OUTPUT AND ♦ 


*. . * 


♦ ADD TO INPUT ♦ 


*. . * 


* * 


*. . * 


***************** 


* NO 






**** 








* * 








* E2 *-> 








* * 








**** 








AXTWO V 


AXAGIN '7 


**£2******* 


*****E3 ********** 


* * 


* * 


* CLEAR THE * 


♦ CHANGE TO + 


* SWITCH * 


♦ EBCDIC AND ♦ 


* * 


♦ STORE + 


* * 


* * 


*********** 


***************** 


**** 




1 


* * 






* F2 ♦-> 




V 


* * 




**** 


**** 




* * 


AXNEXT V 


♦ J2 ♦ 


*****P2 ********** 


* * 


♦SET UP REG WITH* 


**** 


* EBCDIC ADDR, ♦ 
♦AND INITIALIZE ♦ 






♦ TABLE S 


SEARCH + 







***************** 



.♦FIND EBCDIC*. YES 
♦ .CHAR IN TABLE. ♦ 



*****H2********** 



***************** 
**** 



**** 
CVTLV 

*****j2********** 

* * 

♦ RESTORE ♦ 

♦ CALLER' S * 
+ REGISTER' S ♦ 

* * 
***************** 



****K2********* 

* * 
+ RETURN ♦ 

* * 
*************** 



♦ GET THE ♦ 
->*EQUIVALENT HEX + 

♦ CHARACTER ♦ 

♦ * 
***************** 



.♦FIRST TIME ♦. YES 



**** 

* * 
+ H<4 ♦ 

* * 
**** 



* STORE IN HEX 



.* >* OUTPUT FIELD 



***************** 
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**J3******* 

* * 
♦SET THE FLAG ♦ 

♦STORE HEX INFO ♦ 
♦ INTO REG ♦ 

* * 
*********** 



. ALL DONE .♦ -, 

♦. .♦ V 

♦ NO **** 

1 : H " : 

**** **** 

* * 

* F2 ♦ 

* * 
**** 



V 

.♦. 

J4 ♦. 

. * 
. * 
♦. ALL DONE 



rtlxLi UUIN£, . * n 

v ..•* 1 

♦. .♦ V 

♦NO **** 

I : J2 : 



**** 

* * 

+ E2 ♦ 

* * 
**** 



Chart EF. IJZADPRT: Data Print (Section 1 of 3) 



****A1 ********* 




* 


* 




* IJZADPRT 


* 






* 




******* 


K******* 










**** 








* * 








* B2 *-- n 








* * 1 


V 




**** 


CKEP1 . *. 




V 


Bl *. 




**32**+* 


. * *. 






NO .* * 




♦ TURN ON P 


*. ERROR I 


JPRINT 


* 


* FE MSG F 



**** 
* B3 



B3 J 

**** v 



. * * . NO 
.ANY INTERRUPT,* 



****B4********* 

* RETURN TO * 

* CALLER * 

* * 
*************** 



****** 

I .... 

<-->* H3 * 

* * 
**** 



**C1******* 



**** 

* * 

* D3 * — t 

**** V 



*. EL/TL BITS ON.* >*. ERROR DPRINT 



PR OPTION 



**pi******* 



*********** 
**** 
* * *_> 



+ .CATERR BIT ON.* 



**E3******* 



*********** 



**** 

* EG * 

* J5 * — n 

* * 
**** 

OP V 



**** 



*EH- A1.E2.H2 



.♦1ST CATERR *. YESV 
BEEN DONE . *- 



**G2**+++** 



*********** 



**** 

* * 

* B3 * 

* * 
***♦ 



. *AP LEVEL 2 *. 
*. OR 3 



** HI ******* 

♦RESET ERROR* 

* MSG FLGS. * 

♦SET/CAT ERR BIT* 



V 
****jl********* 

* * 

* CALL IJZAD052 ♦ 

* * 
*************** 



H2 *. 
. * *. 

FE OPTION 



**G3+****** 

* * 
* * 
♦SET LEVEL TO 2 ♦ 

*********** 

**** 

* * 

* H3 ♦ — n 

* * I 
**** V 

EP3 .*. 

H3 ♦. 
. * *. 
. ♦ ♦. NO 
>♦. EP OPTION .* n 



LOOP 

**P4******* 

♦SET UP FOR * 

♦ FORMS ♦ 
— >♦ CONTROL. RESET ♦ 

* AP LEVEL * 
♦INDICATORS * 

*********** 



♦ . HEADING .♦ -, 

♦. .+ V 

O ***** 

♦ EG ♦ 

♦ B3* 
* * 

* 

* *. 
.♦ ♦. YES 

*. RESULTS . * t 



* D3 ♦ 

* * 
**** 



.♦PRINT FE OR*. YES 
♦.CAT ERR MSGS .♦ 



♦EG ♦ 

♦ C2+ 

* * 



CAT ERR MSGS . * n ♦. COMMENTS . ♦ -, 

*. .♦ V ♦. .♦ V 



1~>* B2 



NO +*♦* 

***** * 

* * D3 ♦ 
■>* Gl * ♦ 

* ***** 
**** 



***** 
*EG ♦ 
D2* 



*****K4*** ******* 

♦IJZADO70 CM* 

*_*_*_*_*_*_*_*_* 

* * 

* PRINT 'BUG' * 

* * 
***************** 



***** 

♦EH ♦ 

♦ Al* 

* * 
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Chart EG. IJZADPRT: Data Print (Section 2 of 3) 



**** 

*EF * 
* G4 



LPHEAD V 

*****53* ********* 

♦IJZAHEAD EK* 



♦FORMAT HEADING * 
* * 

***************** 



**** 




*EF * 




* H4 *—-, 




* * I 




**** 




LPRSULT V 




**C2******* 


*****C3 ********** 


* * 


♦IJZARSLT ■ EP+ 


♦SET MSG LEVEL+ 


*_*_*_*_*_*_*_*_* 


* =l * 


>* * 


* * 


♦ FORMAT RESULT ♦ 


* * 


* * 


*********** 


***************** 


**** 




*EF ♦ 




♦ J4 *__ 1 




* * 1 




**** 1 




LPCOMNT V 

**D2******* 


*****D3 ********** 


* * 


♦IJZACMNT EC+ 


♦SET MSG LEVEL+ 


*_*_*_*_*_*_*_*_* 


* =2 ♦ 


>* *. 



*********** 



♦FORMAT COMMENTS ♦ 
* * 

***************** 



**FH******* 



*********** 



*****G4* ********* 
♦IJZADO70 CM* 
*_*_*_*_*_*_*_*_* 

* ISSUE FORMS * 

* CONTROL ♦ 

* * 
***************** 



PRINT 

*****H4* ********* 
♦IJZADO70 CM+ 
*_*_*_*_*_*_*_*_* 



♦ PRINT ♦ 


* * 


***************** 


**** 




♦ EP ♦ 




♦ H3 +-> 




* * 




**** v 


A . ♦. 


J4 *. 


. ♦ ♦. 


.♦ ♦. 


♦ . LAST ENTRY . * 


*. . ♦ 


♦. . * 


♦ . . * 


♦ YES 


1 **** 


♦ EH ♦ 




L_>* Al * 



**J5******* 

* * 

♦ UPDATE ♦ 
->♦ POINTER TO NEXT+ 

♦ ENTRY ♦ 

* * 
*********** 

L**** 
•*EF * 
>* FU * 
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Chart EH. IJZADPRT: Data Print (Section 3 of 3) 



Al *. 

. * PRINT *. 

. * 1ST ERROR *. 

.OR CAT. ERROR. 

*. MESSAGE . * 



*****B2* ********* 



***************** 



*****C2* *** ****** 
♦IJZADO70 CM* 
*_*_*_*_*_*_*_*_* 



***************** 



FEMRET \ 
**D2*< 
* 

♦ SET IS! 
♦MESSAGE 

* swn 

* 

****** 


I 
****** 

* 
t" ERROR* 
ISSUED * 
'CH * 

* 

K***** 




< 


1 


/ 



NO . * CAT ERROR 

r *. MESSAGE 

♦.SWITCH ON. 



***** 

*EF * 

* Gl* 

* * 



*****F2********** 

* * 

* PREPARE * 

* CATASTROPHIC * 

* ERROR MESSAGE * 

* * 
***************** 



*****G2 ********** 
♦IJZADO70 CM* 
*-*-*-*-*-*-*-*-* 

* PRINT * 

* CATASTROPHIC * 

* ERROR MESSAGE * 
***************** 



**H2******* 

* * 
* SET CAT. * 

* ERROR MSG * 
♦ISSUED SWITCH* 

* * 
*********** 



**** 
*EF *, 
•>* Gl * 
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Chart Ed. ±J*z.AEXiO: OLTAM uXj.0 



* * 

* IJZAEXIO * 

* * 
*************** 



**** 

* * 

* B5 * 



**** 

* * 

* C2 ♦ -> 



**** 
CLRTECB 

***** C 2********** 



***************** 



D2 *. 

. * *. 

. * * 

.TP SWITCH ON 



. * UNIT TEST * 
.TP SWITCH ON 



♦GET ADDR OF CCB* 

* AND SET CCB * 

* SWITCH * 

* * 
***************** 



*****F2********** 

* * 
♦GET ADDR OF TP ♦ 

♦ CCB AND TP ♦ 

♦ SENSE INFO ♦ 

* * 
***************** 



***************** 



♦ IS THIS ♦ 
TIMING TEST 



****B4********* 

♦RETURN TO UNIT ♦ 

■ * TEST ♦ <- 

* * 

*************** 



♦GET ADDRESS OF ♦ 

♦ WRITE COMMAND ♦ 

♦ TABLE + 

♦ * 
***************** 



PRTMSG V 

***** E3 ********* * 
♦IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE E313I ♦ 

* * 
***************** 



**P3******* 



*********** 



****Q3********* 

* * 

♦GO TO $DTRMLNK ♦ 

*************** 



LDCKTP 

*****H3 ********** 

♦IJZACKTP EB* 
*_*_*_*_*_*_*_*_* 

>+ CHECK ♦ 

♦TELEPROCESSING ♦ 
* * 

***************** 



**** 

* * 

* G4 ♦ 

* * 
**** 



**** 
* 
C2 * 
* 

**** 



*****C5********** 
** ** 

♦* LOAD COMM ♦♦ 
♦♦ INTERVAL ♦+ 
♦♦ IJZAD052 ♦♦ 
** ** 

***************** 



*****D5* ********* 

* * 

♦ MOVE OLT SAVE ♦ 
♦POINTER TO 'OLT+ 

♦ REGS' ♦ 

* * 
***************** 



* * 
♦GO TO IJZAD052 + 

* * 
*************** 



**** 

* * 

* G4 ♦ 

* * 
**** 



LDTIME V 

*****H4********** 

♦$$BZTIME EQ* 

*r*_ *_*_*_ *_*_*_* 

* * 

* CHECK TIMER ♦ 

* * 
***************** 



*****H 5********** 



+EXCP SVCO (TP> ♦ 
* CCB ♦ 



***************** 
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+. GAP TEST 


* .. 


♦. . ♦ 


1 


♦. . ♦ 


J 


♦ . . ♦ 


V 


♦ YES 


**** 






* * 






* B5 ♦ 






* * 






**** 


' 


7 




****K3********* 


♦RETURN TO UNIT 


* 


♦ TE 


3T 


* 



*************** 



Chart EK. I JZ AHEAD: Print Heading 



****A2********* 

* * 

* IJZAHEAD * 

*************** 



*****B2 ********** 

* * 

* SAVE CALLER'S * 

* REGS SET UP * 

* BASE REGISTER * 

* * 
***************** 



*****C2**********' 

* * 

* GET ADDRS OF * 

* BUFFER AREA, * 

* AND SUBTABLE * 



LISTING 
ADDRESS 
PRESENT 



****^CU* ********* 



***************** 



*****E2********** 

* * 
♦MOVE THE ERROR * 

* INDICATOR (*) * 

* INTO BUFFER * 

* * 
***************** 



*****E4* ********* 

* * 

* MOVE INTO * 

* BUFFER (WITH * 
♦PREFIX ' CCW-' ) * 

* * 
***************** 



* GET ID AND * 

* INCREMENT * 
♦BUFFER POINTER * 

* * 
***************** 



*****q2 ********** 



* GET THE UNIT 

* ADDR FROM SCT 



************* 



*****H2 ********** 
♦IJZACONV EE* 
*_*_*_*_*_*_*_*_* 

* CONVERT THE * 

* INFO. * 

* * 
***************** 



*****j2********** 

* * 

* CONVERT THE * 
♦ROUTINE NUMBER * 

* TO DECIMAL * 

* * 
***************** 



**** 

* * 

* BU * 

* * 
**** 



DEVICE 
PRESENT 



*****G4*** ******* 

* MOVE INTO * 

* BUFFER (WITH * 

* PREFIX * 

* ' ADDR-' ) . GET * 

* CCW * 
***************** 



* GET TOTAL * 

* LENGTH AND * 

* STORE IN SCT * 

* * 
***************** 



*****j4* ********* 

* * 

* RESTORE * 

* CALLER'S * 

* REGISTERS * 

* * 
***************** 



****K4** ******* 

* * 

* RETURN * 

* * 
*************** 



Charts 151 



Chart EL. IJZAOPEN: $$BSOPEN, Pseudo Open 



****&!********* 

* * 

* IJZAOPEN * 



******** 



V 
*****Bl ********** 
♦SAVE REGS. GET '* 
♦ADDR' S OF FAVP, * 

* JIB. FICL AND * 

* LUB FROM COM * 

* REG * 
***************** 



*****Ci ********** 



** SVC22 SEIZE ** 
** THE SYSTEM ** 



***************** 



NO .* 
*. DEV = 2321 



**E1******* 



*********** 



SKIP01 V 

*****pl ********** 

♦CLEAR WK REGS, * 
♦GET ADDRESS OF * 

* FICL, GET DEV * 

* CLASS * 

* * 
***************** 



*****H1* ********* 

* * 

* GET PROG. * 

* INTRPT KEY * 

* (PIK) * 

* * 
***************** 



* B2 * 

* * 
**** 



*****£ 2********** 



***************** 



C2 *. 

. * *. 
* 

DEV = 2321 
*. 

*. . * 
*. . * 
* YES 



* REPLACE JIB * 
*ADDR WITH NEXT * 

* ADDR OF JIB * 

* * 
***************** 



*****C4* ********* 

* * 

* GET UPPER AND * 
->* LOWER LIMITS * 

* INTO JIB * 

* * 
***************** 



**** 

* * 

* H2 * 

* * 
**** 



SKIP02 

*****jl**** ****** 

♦GET CONTENTS OF* 

♦ FICL AND ADDR ♦ 
♦OF LUB FOR SYM ♦ 

♦ UNIT TO BE ♦ 

♦ TESTED * 
***************** 



**** 

* * 

* Kl * 



.♦IS THERE A ♦. NO 
JIB PTR . ♦ n 



E2 ♦. 

. * PTR *. 

* POINT TO * 

UPPER LIMIT 

*. OF JIB .* 

*. . * 



V 
*****P2** ******** 

* CLEAR UPPER * 

* LIMIT JIB * 

* ADDRESS * 

* REGISTER * 

* * 
***************** 



PUT21LL 
PUT21UL 

*****G2 ********** 

* * 

* SET UP LOWER ♦ 

* AND UPPER ♦ 
♦EXTENTS OF JIB ♦ 

* * 
***************** 

**** 



**** 
NDRUTINE 

*****H2 ********** 

* * 

* RESTORE REGS, * 

* FETCH OLTEP * 

* NAME * 

* * 
***************** 



**j2******* 

* * 
SVC 22 

RELEASE THE 
SYSTEM 

* * 
*********** 



****K2* ******** 

* * 

* SVC 11 RETURN * 

* * 
*************** 



**** 

* * 

* B5 * 

* * 
**** 



-+.JIB AVAILABLE.* 



*****C5********** 

* * 
♦SAVE AVAIL JIB * 
*PTR. INSERT PTR* 

* TO NEW JIB ♦ 

* * 
***************** 



SKIP05 

*****D 5* ********* 

* GET ADDR OF ♦ 
♦UPPER AND LOWER* 

* LIMITS OF NEW * 

* JIB. SET FAVP * 
+ TO NEW JIB * 
***************** 



GETNXJIB 



DEV = 2321 



ERROR V 

**F3******* 

* * 
♦SET ' NO JIBS ♦ 

♦AVAILABLE' BIT ♦ 
* IN SCT * 

* * 
*********** 



**** 

* * 

* H2 * 

* * 
**** 



*****F4 ********** 

* GET NEW JIB * 

* UPPER LIMIT * 
*ADDR GET PTR TO* 

* NEXT JIB * 

* * 
***************** 



*****G4 ********** 

* * 

* UPDATE FAVP, * 

* SET EXTENT * 

* INDICATORS ON * 

* * 
***************** 



*****H4* ********* 



***************** 



*****P5********** 
♦PUT EXTENT TYPE* 

* IN JIB, GET * 

* EXTENT LIMITS * 

* FOR 2311 * 

* * 
***************** 



PRTOFF V 

*****j5*** ******* 



* SET END OF * 

* CHAIN POINTER * 



***************** 



**** 

* * 

* H2 * 



**** 

* * 

* B2 * 

* * 
**** 



**** 

* * 

* B5 * 

* * 
**** 
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Chart EM. IJZAOPUT: Output 



**A2********* 
* 
IJZAOPUT * 



♦SAVE ADDRESS OF* 
* OUTPUT DATA * 



ft********* 



**C2******* 

* PUT BYTE * 

* COUNT INTO * 

♦PARAMETER LIST * 



*********** 



*****q2 ********** 
+IJZAD037 BQ* 
*_*_*_*_*_*_*_*_* 

* PRINT OLT * 

* MESSAGE * 

* * 
***************** 



RESTORE 
REGISTERS 



V 
****F2* ******** 

* * 

* RETURN * 

* * 
*************** 
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Chart EN. IJZARATA: Random Data Generator 



**** A3* ******** 

* * 

* IJZARATA * 

* * 
*************** 



IJZARATA V 

*****B3* ********* 

* * 

* SAVE CALLER'S * 
♦REGS/ ESTABLISH* 

* BASE REG * 

* * 
***************** 



**** 

* * 

* BU * 



♦MOVE IN 8 MORE * 
♦BYTES DECREMENT* 

* COUNT BY ONE * 

* * 
***************** 



* INITIALIZE 

* REGISTER FOR 

* LOOP 
* 
**************** 



RDATA2 

*****D3********** 



♦GET THE RANDOM * 
* DATA ♦ 



*********** 



E3 ♦. 
* 

CARRY 



*****F3 ********** 



***************** 



*****q3 ********** 



♦ COMPUTE MORE 

♦ RANDOM DATA 



***************** 



. * 



J3 ♦. 

*. 

♦. N 
BYTES LEFT . ♦- 

. * 
♦ . . ♦ 
♦. . ♦ 
♦ YES 

i 

**** 

* * 

* B4 ♦ 

* * 
**** 
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*****j4********** 

♦ DECREMENT CNT + 
♦BY ONE AND MOVE+ 

->♦ FINAL BYTES OF * 

♦ DATA ♦ 

♦ * 
***************** 



RDATA3 

V 
****K4********* 

* * 

* RETURN * 

* * 
*************** 



Chart EP. IJZARSLT: Print Result 



****Al+ ****** 
* IJZARSLT 



***** Bl ********** 

* SAVE CALLER'S ♦ 

* REGS, INIT. * 

* REGS AND WORK * 

* AREAS * 

* * 
***************** 



B3 ♦ - 


1 




* 
*** 






. *. 




B3 


*. 




. * 


*. 




* 


*. 


YES 


ADDR 


RELEVANT. 


* 



***** B 4 ********** 



***************** 



**** 

* * 

* B5 * 

* * 
**** 



PRSX 

*****B5 ********** 

* GET PREFIX * 

* • DATA, ' INCR * 

* PNTR.AND FIND * 

* OUT HOW MUCH * 

* ROOM IS LEFT * 
***************** 



*****C4 ******* 



*************** 



CC RELEVANT . *- 



ANY 

RELEVANT 

CCW'S 



**** 

* * 

* Fl + -> 



*****Q2********** 

* * 

* GET RECEIVED * 
->♦ AND EXPECTED * 

♦CONDITION CODES* 

* * 
***************** 



*****E2 ********** 

* * 

* GET PREFIXES * 
>*'CSW-XX' (1ST) * 

♦'FIN-XX' (LAST)* 

* * 
***************** 



* NO 
**** 

* * 

* E3 *-> 

* * 
**** 

*****E3********** 



**************** 



**** 

* * 

* Fl * 



************* 



***** £ 4 ********* * 



************ 



V 

****D5********** 

* 

* 

SAVE THE COUNT * 

* 

* 

***************** 



PRSM V 

***** E 5*** ******* 

• * MOVE RECEIVED * 

* DATA INTO * 
♦BUFFER, CONVERT* 
♦DATA TO EBCDIC * 

* * 
***************** 



* GET PREFIX * 

* ' SNS-' INCR. * 

* BUFFER PTR. ♦ 

* * 
***************** 



COUNT DONE 



*G2+*******++ 



***************** 



♦ .DATA RELEVANT.* -, 



V 
*****K1 ********* 
♦GET DATA COUNT, * 

* POINT TO * 

* EXPECTED AND * 

* RECEIVED DATA * 

* * 
***************** 



***************** 



NO 


.♦SINGLE LINE* 


NO 


* 1 


*. 


PRINT 


* 1 


1 


*. 


. * 


| 


1 


* 


. . * 
*. . * 


1 


**** 




* YES 


**** 


* * 




1 


* * 


* J5 * 




* B3 * 


* * 




* * 


**** 




**** 

* * 

* E3 * 

* - * 


**** 


* 




**** 





*****H3********** 



***************** 



**** 

♦ EG ♦ 

->♦ J4 * 



♦ G4 + 

* * 
**** 



EXIT 

*****H4 ********** 

♦ RESTORE ♦ 
♦CALLER' S REGS, * 

* MOVE BUFFER 2 * 

♦ INTO BUFFER1 ♦ 

* * 
***************** 



****j4********* 

* * 

* RETURN * 

* * 
*************** 



*****Q5********** 

* MOVE IN * 

* EXPECTED DATA * 
*AND CONVERT TO * 

* EBCDIC ♦ 

* * 
***************** 



***************** 

**** 

* * 

* J5 *-> 

* * 
**** 

RSL 

♦♦♦J5*********** 
OUTPUT 
*_*_*_*_*_*_*_** 

*K4 

* * 

**************** 



**** 

* * 

* GU * 

* * 
**** 



* B5 * 
**** 
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Chart EQ. IJZATIME: $$BZTIME # Timing Test 



****A1*** ****** 

* * 

* IJZATIME * 

* * 
*************** 



*****B1 ********** 

* STORE USER'S * 

* REGISTERS * 

* ESTABLISH A * 

* BASE REGISTER * 

* * 
***************** 



***C1* ********** 
SVC 
* EXCP, * 
_*_*_*_*_*_*_*_ 

* ALLOW 1 * 

SECOND DELAY 
**************** 



**** 

* * 

* B4 * 



FUNC2 V 

*****B4********** 

* RESTORE SENSE * 

* BYTE, UNLOCK * 
♦CHANNEL, SET UP* 

* FOR 1 SECOND * 

* DELAY * 
***************** 



V 








. *. 




. *. 




en *. 




C5 *. 




* *. 




. * *. 




SENSE 


*. NO 


. *ONE SECOND *. 


NO 


FINISHED 


. * 


>*. DELAY 


* J 



SENSE 
FINISHED 



**** 

* * 

* Fl *-> 



**** 
STRSLTS 

*****pi ********** 



* STORE RESULTS * 



***************** 



RESTORE 
REGISTERS 



***************** 



****H1********* 

* SVC 11 RETURN * 

* TO CALLER * 

* * 
*************** 



FUNC1B 

* * * * *D2* * * * * * * * * * 
**SVC 22 SEIZE ** 
** THE SYSTEM ** 

>** PREVENT ** 

** INTERRUPTS ** 



***************** 



FUNC2B 

*****D4* ********* 

♦PERFORM GO DOWN* 

* LOOP, UNLOCK * 

* CHANNEL, ♦ 
+ RESTORE SENSE ♦ 
+ BYTE * 
***************** 



*****D 5+ ********* 

* UNLOCK * 

* CHANNEL- ERROR * 

* COND. CAUSING * 

* EARLY * 

* DISCONNECT * 
***************** 



GAP TEST *. YES 
REQUESTED . * -, 



**** 

* * 

* B4 * 

* * 
**** 

*****P2********** 

* * 

* PERFORM TIME * 

* LOOP, UNLOCK * 

* CHANNEL * 

* * 
***************** 



G2 *. 

. * *. 

. * *. 

.TIMER WORKING. 



. *COUNT DOWN 
. FINISHED 



YES 



***************** 



**H3******* 



♦SET TIMER NOT* 
* WORKING FLAG * 



*********** 



RLSYS V 

*****j2** ******** 
** SVC 22 *♦ 
♦♦ RELEASE THE ♦♦ 
♦♦SYSTEM, ALLOW** 
♦♦ INTERRUPTS ♦♦ 
** ** 

***************** 



****K2 ********** 



**************** 



**** 

* * 

* Fl * 
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IJZ AWAIT: OLTAM Wait 



****&!********* 
* 
IJZAWAIT * 
* 
*************** 



.IS TP FLAG ON. *- 



***D1********** 



♦GET ADDR OF CCB* 



**************** 



*+ WAIT FOR TP ** 
** CCB ** 



***************** 



*****fl ********** 
*l«iOVE CCW ADDR, * 
*CCW STATUS, CCW* 
♦RESIDUAL COUNT, * 
*AND SENSE INFO * 
* INTO CCB * 
***************** 



IS *. YES 

INTERRUPT . * 

. FLAG Oi\l .* 



* RESTORE * 

* CALLER'S * 

* REGISTERS * 

* * 
***************** 



****jl********* 
♦RETURN TO UNIT * 

* TEST * 

* * 
*************** 



*****G2********** 

*IJZAD052 AE* 

*-*-*-*-*-*-*-*-* 

>* CALL COMM * 

* INTERVAL * 

* IJZAD052 * 
***************** 



*****H2 ********** 

* * 

* MOVE OLT SAVE * 

* POINTER TO * 

* •OLTREGS' * 

* * 
***************** 



****J2********* 

* EXIT TO * 

* IJZAD05 2 * 

* * 
*************** 
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LABEL CROSS REFERENCE 



Label 


Phase 


Chart 


A$BCONT 


IJZATOLT 


DE 


AAACONT 


IJZADOAA 


DA 


AAADATE 


IJZADOAA 


DA 


AAARETN1 


IJZADOAA 


DA 


AAKCIMG 


IJZAD077 


CS 


AAKCINT 


IJZAD077 


CS 


AAKDSCNT 


IJZAD077 


CS 


AAKEXIT 


IJZAD077 


CS 


ADAPTER 


IJZAD08 5 


CU 


AEZADOLT 


IJZADOLT 


AA 


AXAGIN 


IJZAD041 


BU 


AXAGIN 


IJZACONV 


EE 


AXBYTE 


IJZAD041 


BU 


AXBYTE 


IJZACONV 


EE 


AXGOT 


IJZAD041 


BU 


AXGOT 


IJZACONV 


EE 


AXLOOK 


IJZAD041 


BU 


AXLOOK 


IJZACONV 


EE 


AXNEXT 


IJZAD041 


BU 


AXNEXT 


IJZACONV 


EE 


AXSWCH 


IJZACONV 


EE 


AXTWO 


IJZAD041 


BU 


AXTWO 


IJZACONV 


EE 


AXXAGAIN 


IJZADO07 


AX 


AXXALLAG 


IJZADO07 


AX 


AXXBRES 


IJZADO07 


AX 


AXXIN1 


IJZADO07 


AX 


AXXLABEL 


IJZADO07 


AX 


AXXNBPR 


IJZADO07 


AX 


AXXNBR 


IJZADO07 


AX 


AXXNOUC 


IJZADO07 


AX 


AXXPRES 


IJZADO07 


AX 


AXXRETRN 


IJZADO07 


AX 


AXXRONT6 


IJZADO07 


AX 


AXXRPLY 


IJZADO07 


AX 


AXXSECUR 


IJZADO07 


AX 


AXXSEPRO 


IJZADO07 


AX 


A00N1052 


IJZADO00 


AR1 


A00OLDTT 


IJZADO00 


AR 


A02IN1 


IJZADO02 


AU 


A02IN2 


IJZADO02 


AU 


A03COMN1 


IJZADO03 


AV 


A03DP0 


IJZADO03 


AW 


A03EXPIR 


IJZADO03 


AW 


A03IN1 


IJZADO03 


AV 


A03IN2 


IJZADO03 


AW 


A03IN3 


IJZADO03 


AW 


A03IZP 


IJZADO03 


AV 


A03MATCH 


IJZADO03 


AV 


A03MDCHK 


IJZADO03 


AV 


A03NEX 


IJZADO03 


AW 


A03PUBAD 


IJZADO03 


AV 


A03REPET 


IJZADO03 


AV 


A03RLB 


IJZADO03 


AW 


A03RTRY 


IJZADO03 


AW 


A03RTRY1 


IJZADO03 


AV 



A03STDLB 


IJZADO03 


AV 


1 A03STDM 


IJZADO03 


AV 


1 A03VASC 


IJZADO0 3 


AV 


A035CPRT 


IJZADO03 


AW 


1 A037TRK 


IJZADO03 


AV 


A039TRK 


IJZADO03 


AV 


1 A07OVER 


IJZADO07 


AX 


A16A 


IJZAD016 


BE 


1 A16ALOW 


IJZAD016 


BE1 


Al 6 AGAIN 


IJZAD016 


BE 


A16BN12 


IJZAD016 


BE 


A16C 


IJZAD016 


BE 


| Al 6 EQUAL 


IJZAD016 


BE1 


A16EXIT 


IJZAD016 


BE 


A16F 


IJZAD016 


BE 


1 A16GCDS 


IJZAD016 


BE 


A16HAVE 


IJZAD016 


BE 


1 A16LA 


IJZAD016 


BE1 


A16LDPHS 


IJZAD016 


BE1 


A16MCDS 


IJZAD016 


BE 


A160K 


IJZAD016 


BE1 


A160UT 


IJZAD016 


BE 


A160UTA 


IJZAD016 


BE 


A16PRT 


IJZAD016 


BE 


A16RCU 


IJZAD016 


BE 


A16RESTR 


IJZAD016 


BE 


A16SRCH 


IJZAD016 


BE 


A16UPCT 


IJZAD016 


BE1 


A21BR 


IJZAD021 


BG 


A24RETRC 


IJZAD024 


BJ 


A24SRCH 


IJZAD024 


BJ 


A26CCBRE 


IJZAD026 


BL 


A26EQUAL 


IJZAD026 


BL 


A26ERR01 


IJZAD026 


BL 


A26ERR02 


IJZAD026 


BL 


A2 6 GET NT 


IJZAD026 


BL 


A26MVCIN 


IJZAD026 


BL 


A2 6 NOT AS 


IJZAD026 


BL 


A260UST 


IJZAD026 


BL 


A2 6 REPLY 


IJZAD026 


BL 


A26RET 


IJZAD026 


BL 


A26RETN 


IJZAD026 


BL 


A26RETRC 


IJZAD026 


BL 


A26SET1 


IJZAD026 


BL 


A26SRCH 


IJZAD026 


BL 


A31ACHCK 


IJZAD031 


AH 


A31AINCR 


IJZAD031 


AJ 


A31AN03 


IJZAD031 


AJ 


A31ASCAN 


IJZAD031 


AJ 


A31ASCDS 


IJZAD031 


AJ 


A31ASET2 


IJZAD031 


AH 


A31ASRCH 


IJZAD031 


AH 


A31AUNIT 


IJZAD031 


AJ 


A31A$ 


IJZAD031 


AH 


A31E108I 


IJZAD031 


AH 
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I A31E127I 

A31RES 
A32DASH 
A32LPHOK 
A32LTRNS 

| A32SOSPA 
A33FLN 
A33MUTEX 
A33SKP3 
A37COMUN 
A37FRE 
A37POLFR 

| A3 9 AFTER 

A41ERR03 

A42ADD 

A42AMTGT 

A42B 

A42BR 

A42COMP 

A42D00 

A42EQP 

A42ERR02 

A42EXIT 

A42FCUSE 

A42HERE 

A42LEQR 

A42LFENL 

A42MAD 

A42MCNEI 

A420KAY 

A42PASMI 

A42REQMI 

A42RTN02 

A42SETUP 

A42SKIP 

A42SMAL 

A42WAIT 

A43COMPR 

A43G3 

A43H3 

A43LOGEP 

A43NOTCN 

A43RET 

A43SKIP2 

A432AB 

A432B3 

| A44CONT1 
A52BADOP 
A57ASTST 

I A57CHKNEXT 
A57CNVT 

I A57EBCD 
A57ERMSG 

I A57GOBCK 

I A57NORML 
A57READY 
A57RESET 
A57RETRN 

I A57REWD 
A57SENSE 

I A57TEST 



IJZAD031 
IJZAD031 
IJZAD032 
IJZAD032 
IJZAD032 
IJZAD032 
IJZAD033 
IJZAD033 
IJZAD033 
IJZAD037 
IJZAD037 
IJZAD037 
IJZAD039 

IJZAD041 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD0a2 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD0a2 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD042 
IJZAD0U3 
IJZAD043 
IJZAD043 
IJZAD043 
IJZAD043 
IJZAD043 
IJZAD043 
IJZAD043 
IJZAD043 
IJZAD044 
IJZAD052 
IJZAD057 
IJZAD057 
IJZAD057 
IJZAD057 
IJZAD057 
IJZAD057 
IJZAD057 
IJZAD057 
IJZAD057 
IJZAD057 
IJZAD057 
IJZAD057 
IJZAD057 



AJ1 

AH 
AL 
AL 
AK 
AK 
AN 
AN 
AN 
BR 
BQ 
BQ 
BS 

BU 
BV 
BV 
BW 
BV 
BW 
BX 
BV 
BV 
BV 
BW 
BV 
BX 
BX 
BV 
BV 
BX 
BW 
BW 
BV 
BV 
BX 
BW 
BX 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CB 
AF 
AG 
AG 
AG 
AG 
AG 
AG 
AG 
AG 
AG 
AG 
AG 
AG 
AG 



A57TESTC 


IJZAD057 


AG 


A57TIO 


IJZAD057 


AG 


A57TSTWR 


IJZAD057 


AG 


A57UPDT 


IJZAD057 


AG 


A61DEC 


IJZAD061 


CF 


A61EXIT 


IJZAD061 


CF 


A61SKIP 


IJZAD061 


CF 


A61TEST 


IJZAD061 


CF 


A61YES 


IJZAD061 


CF 


A63CSW2E 


IJZAD063 


CH 


A63CSW2P 


IJZAD063 


CH 


A63EVENT 


IJZAD063 


CJ 


A63EXIT 


IJZAD063 


CH 


A63GOPRT 


IJZAD063 


CH 


A63PCSW1 


IJZAD063 


CH 


A63PCSW2 


IJZAD063 


CH 


A63PRINT 


IJZAD063 


CH 


A63RCSW 


IJZAD063 


CH 


A63RCSW1 


IJZAD063 


CH 


A63RCSW2 


IJZAD063 


CH 


A63SETPR 


IJZAD063 


CJ 


A63SKIP2 


IJZAD063 


CH 


A63SKIP8 


IJZAD063 


CH 


A63XCSW2 


IJZAD063 


CH 


A63177 


IJZAD063 


CJ 


A63179 


IJZAD063 


CJ 


A63183 


IJZAD063 


CJ 


A63185 


IJZAD063 


CJ 


A63454 


IJZAD063 


CJ 


A63456 


IJZAD063 


CJ 


A63458 


IJZAD063 


CJ 


A63460 


IJZAD063 


CJ 


A64EXIT 


IJZAD064 


CK 


A64TCB 


IJZAD064 


CK 


A64002 


IJZAD064 


CK 


A64200 


IJZAD064 


CK 


A64200A 


IJZAD064 


CK 


A64201 


IJZAD064 


CK 


A64203 


I JZ ADO 6 4 


CK 


A64210 


IJZAD064 


CK 


A64210A 


IJZAD064 


CK 


A64210B 


IJZAD064 


CK 


A64211 


IJZAD064 


CK 


A64212 


IJZAD064 


CK 


A64213 


IJZAD064 


CK 


A64214 


IJZAD064 


CK 


A64215 


IJZAD064 


CK 


A64217 


IJZAD064 


CK 


A64218A 


IJZAD064 


CK 


A64218AB 


IJZAD064 


CK 


A64218B 


IJZAD064 


CK 


A65EXIT 


IJZAD065 


CL 


A65230 


IJZAD065 


CL 


A65240 


IJZAD065 


CL 


A65250 


IJZAD065 


CL 


A65262 


IJZAD065 


CL 


A65262A 


IJZAD065 


CL 


A65262B 


IJZAD065 


CL 


A65263 


IJZAD065 


CL 


A65264 


IJZAD065 


CL 


A65265 


IJZAD065 


CL 
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B$L0P1 


IJZATOLT 


DE 


B$L0P1A 


IJZATOLT 


DE 


B$L0P1B 


IJZATOLT 


DE 


B$SK101 


IJZATOLT 


DE 


B$SK102 


IJZATOLT 


DE 


BADAGAIN 


IJZADO02 


AU 


BADSENSE 


IJZADO02 


AU 


B01CALL 


IJZADO01 


AC 


BOICKOPT 


IJZADO01 


AC 


B01CLNUP 


IJZADO01 


AD 


BOIDVTCK 


IJZADO01 


AD 


BOIDVTST 


IJZADO01 


AC 


BOlISSUP 


IJZADO01 


AC 


BOIMODRQ 


IJZADO01 


AC 


BOINOCAT 


IJZADO01 


AD 


BOINOSUP 


IJZADO01 


AC 


BOIWIPER 


IJZADO01 


AC 


B24AMSG 


IJZAD024 


BJ 


B24CON1 


IJZAD024 


BJ 


B24ENDC 


IJZAD024 


BK 


B240KRD 


IJZAD024 


BK 


B240VR 


IJZAD024 


BK 


B28ERR08 


IJZAD028 


BM 


B28ERR16 


IJZAD028 


BM 


B28GOAHD 


IJZAD028 


BM 


B28LODD 


IJZAD028 


BM 


B28NEXT 


IJZAD028 


BM 


B28NONE 


IJZAD028 


BM 


B28RETO 


IJZAD028 


BM 


B37CONGD 


IJZAD037 


BR 


B56ANSP 


IJZAD056 


AT 


B56ANSR 


IJZAD056 


AT 


B56BPR 


IJZAD056 


AT 


B56CHKAN 


IJZAD056 


AT 


B56CHKDV 


IJZAD056 


AT 


B56CON 


IJZAD056 


AS 


B56DASD 


IJZAD056 


AT 


B56DCELL 


IJZAD056 


AS 


B56DISK 


IJZAD056 


AS 


B56DONE 


IJZAD056 


AT 


B56INTE 


IJZAD056 


AS 


B56INTRQ 


IJZAD056 


AS 


B56LOOP 


IJZAD056 


AS 


B560K 


IJZAD056 


AS 


B560PTN 


IJZAD056 


AT 


B560PT2 


IJZAD056 


AT 


B56NOANS 


IJZAD056 


AT 


B56RETRY 


IJZAD056 


AS 


B56SENS1 


IJZAD056 


AS 


B990VR1 


IJZADOLT 


AA 


CA2 


IJZACOMP 


ED 


CC2 


IJZACOMP 


ED 


CC4 


IJZACOMP 


ED 


CDEQP 


IJZAD085 


CV 


CEBIT 


IJZADO02 


AU 


CECOMPRT 


IJZADO02 


AU 


CEVOL 


IJZADO02 


AU 


CE2 


IJZACOMP 


ED 


CGI 


IJZACOMP 


ED 


CH2 


IJZACOMP 


ED 


CJ1 


IJZACOMP 


ED 



CKCATS1 


IJZADPRT 


EF 


CKCMD 


IJZAEXIO 


EJ 


CKCOM 


IJZADPRT 


EH 


CKEL1 


IJZADPRT 


EF 


CKEP1 


IJZADPRT 


EF 


CKEP2 


IJZADPRT 


EF 


CKEP3 


IJZADPRT 


EF 


CKEXT 


IJZAWAIT 


ER 


CKFENSG 


IJZADPRT 


EF 


CKFE1 


IJZADPRT 


EF 


CKFE2 


IJZADPRT 


EF 


CKFE3 


IJZADPRT 


EF 


CKINT 


IJZADPRT 


EH 


CKNEP 


IJZADPRT 


EF 


CKPR1 


IJZADPRT 


EF 


CKRPLY 


IJZACKTP 


EB 


CKTDACT 


IJZACKTP 


EB 


CKTPAA 


IJZACKTP 


EB 


CKTPFLG 


IJZACKTP 


EB 


CK7DFLG 


IJZACKTP 


EB 


CLC1 


IJZACOMP 


ED 


CLC2 


IJZACOMP 


ED 


CLRTECB 


IJZAEXIO 


EJ 


CMPDVCD 


IJZAD085 


CV 


COMNJUNC 


IJZADO02 


AU 


COMNTA 


IJZACMNT 


EC 


CVTA 


IJZAD041 


BU 


CVTA 


IJZACONV 


EE 


CVTLU 


IJZAD041 


BU 


CVTLV 


IJZAD041 


BU 


CVTLV 


IJZACONV 


EE 


C00SKIP1 


IJZADO00 


AR 


C00SKIP2 


IJZADO00 


AR 


C24COMP 


IJZAD024 


BJ 


C24DEC1 


IJZAD024 


BK 


C24HKDTA 


IJZAD024 


BJ 


C24KAGIN 


IJZAD024 


BK 


C24ODE0C 


IJZAD024 


BK 


C24ODE0U 


IJZAD024 


BJ 


C24ODE08 


IJZAD024 


BJ 


C 31 JUNTA 


IJZAD031 


AJ1 


C31KNDR1 


IJZAD031 


AH 


C31KNDR3 


IJZAD031 


AH 


C31RELD 


IJZAD031 


AH 


C32HKWKA 


IJZAD032 


AM 


C32HK4Z 


IJZAD032 


AM 


C32HRNWK 


IJZAD032 


AL 


C32LRTST 


IJZAD032 


AK 


C37CMN1 


IJZAD037 


BQ 


C370VR1 


IJZAD037 


BQ 


C37SKIP2 


IJZAD037 


BQ 


C37SKIP4 


IJZAD037 


BQ 


DEVCDFND 


IJZAD085 


CV 


DEVCODE 


IJZAD085 


CU 


DU3B1 


IJZAD085 


cu 


DU3D4 


IJZAD085 


CU 


DU3D4A 


IJZAD085 


cu 


DU3E1 


IJZAD085 


CV 


DU3F1 


IJZAD085 


CV 


DU3G1 


IJZAD085 


CV 


DU3J2 


IJZAD085 


cu 
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D2321 


IJZAD08 5 


CV 


D240BKSP 


IJZAD024 


BK 


D2700 


IJZAD085 


CU 


D2700A 


IJZAD085 


CU 


D2702 


IJZAD085 


CU 


D2703 


IJZAD085 


CU 


D31VCVT 


IJZAD031 


AJ1 


EPZADO02 


IJZADO02 


AU 


ERROR 


IJZAOPEN 


EL 


EXIT 


IJZARSLT 


EP 


EXIT1 


IJZADPRT 


EH 


EXRET 


IJZACKTP 


EB 


E10CONT 


IJZADO10 


BA 


E10ENS 


IJZADO10 


BA 


E10HWCC 


IJZADO10 


BA 


E10LSTRC 


IJZADO10 


BB 


E10NORM 


IJZADO10 


BA 


E10OKNX 


IJZADO10 


BA 


E10OKNXT 


IJZADO10 


BA 


El ORDER 


IJZADO10 


BA 


E10REDI 


IJZADO10 


BA 


E10REDSK 


IJZADO10 


BA 


E10REEX 


IJZADO10 


BA 


E10REEX1 


IJZADO10 


BB 


E10RETR 


IJZADO10 


BB 


ElORHIO 


IJZADO10 


BA 


ElORIN 


IJZADO10 


BA 


E10RIN1 


IJZADO10 


BB 


E10RIN2 


IJZADO10 


BB 


E10RIN3 


IJZADO10 


BB 


E10WOUT 


IJZADO10 


BA 


E10WRI 


IJZADO10 


BA 


E10WT 


IJZADO10 


BA 


E24PROR 


IJZAD024 


BJ 


E32ERR 


IJZAD032 


AK 


1 E32ERR01 


IJZAD032 


AL 


1 E32PPM 


IJZAD032 


AK 


E32PR11 


IJZAD032 


AK 


E32RR05 


IJZAD032 


AK 


E32RR07 


IJZAD032 


AK 


E32RR08 


IJZAD032 


AL 


1 E32RR09 


IJZAD032 


AL 


1 E32RR10 


IJZAD032 


AL 


E99NDJOB 


IJZADOLT 


AA 


FEMRET 


IJZADPRT 


EH 


FIRSTCCB 


IJZAEXIO 


EJ 


FIRSTCCB 


IJZAWAIT 


ER 


FIRSTPUB 


IJZACKTP 


EB 


FUNC1A 


IJZATIME 


EQ 


FUNC1B 


IJZATIME 


EQ 


FUNC1D 


IJZATIME 


EQ 


FUNC2 


IJZATIME 


EQ 


FUNC2A 


IJZATIME 


EQ 


FUNC2B 


IJZATIME 


EQ 


FUNC2D 


IJZATIME 


EQ 


FUNC2E 


IJZATIME 


EQ 


FOOCHKSC 


IJZADO00 


AP 


1 FOOCLEAR 


IJZAD032 


AP 


F32SNCHK 


IJZAD032 


AK 



GETJIB 


IJZAOPEN 


EL 


GETNXJIB 


IJZAOPEN 


EL 


GO 


IJZAOPUT 


EM 


GOTOCALD 


IJZADO01 


AC 


G01ATTN 


IJZADO01 


AC 


G01ENTPT 


IJZADO01 


AC 


G01GETID 


IJZADO01 


AC 


G01LOAD 


IJZADO01 


AC 


G01LOOK 


IJZADO01 


AC 


G01NOATT 


IJZADO01 


AC 


G01NORML 


IJZADO01 


AC 


G01REG10 


IJZADO01 


AC 


G01RELD 


IJZADO01 


AC 


G24BUILD 


IJZAD024 


BK 


G2UCOMP 


IJZAD024 


BJ 


G24DOPER 


IJZAD024 


BJ 


G24DREAD 


IJZAD02U 


BJ 


G24UNLD 


IJZAD024 


BJ 


G31EN04 


IJZAD031 


AJ 


G31EN05 


IJZAD031 


AJ 


G31EN06 


IJZAD031 


AJ 


G31EN07 


I JZ ADO 31 


AJ 


G31EN08 


IJZAD031 


AJ 


G31EN09 


IJZAD031 


AJ 


G31EN10 


IJZAD031 


AH 


G31EN11 


I JZ ADO 31 


AJ 


G31EN15 


IJZAD031 


AH 


G31TCNFG 


IJZAD031 


AJ1 


G32NOEXT 


IJZAD032 


AM 


G32RTNDC 


IJZAD032 


AM 


G47CHKMI 


IJZAD047 


CD 


G47RET1 


IJZAD047 


CD 


G47RET2 


IJZAD047 


CD 


| H31LPMSG 


IJZAD031 


AJ 


IJZARATA 


IJZARATA 


EN 


| I99CONFG 


IJZAD099 


AB 


I99HIGH 


IJZAD099 


AA 


I990K 


IJZAD099 


AB 


I990LTSZ 


IJZAD099 


AB 


I99READ 


IJZAD099 


AB 


I99STXAB 


IJZAD099 


AB 


I99TN52 


IJZAD099 


AB 


JIOBSOUT 


IJZADO10 


BC 


J10CONT1 


IJZADO10 


BB 


J10DTACK 


IJZADO10 


BC 


J10ERP 


IJZADO10 


BB 


J10ERRTR 


IJZADO10 


BB 


J10INTRQ 


IJZADO10 


BC 


J10LSDA 


IJZADO10 


BC 


J10OVRRN 


IJZADO10 


BC 


J10RDS 


IJZADO10 


BA 


J10RDSK 


IJZADO10 


BC 


J10 RETRY 


IJZADO10 


BC 


J10SNO 


IJZADO10 


BB 


J10TIMOT 


IJZADO10 


BC 


J10UNCK 


IJZADO10 


BC 


J10UNEX 


IJZADO10 


BA 


J10UNEXX 


IJZADO10 


BA 


J10UNXR 


IJZADO10 


BA 


J10WRC 


IJZADO10 


BC 
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, J10WRTI 


IJZADO10 


BC 


1 J99LEVAL 


IJZADOLT 


AA 


L$BCPERR 


IJZATOLT 


DE 


L$BPUBCK 


IJZATOLT 


DE 


L$B00005 


IJZATOLT 


DE 


L$B00010 


IJZATOLT 


DE 


L$B00020 


IJZATOLT 


DE 


L$CLNUP 


IJZATOLT 


DE 


LAJOIOIO 


IJZAD076 


CR 


LAJ01020 


IJZAD076 


CR 


LAJ01030 


IJZAD076 


CR 


LAJ02010 


IJZAD076 


CR 


LAJ03010 


IJZAD076 


CR 


LAJ04010 


IJZAD076 


CR 


LDCKTP 


IJZAEXIO 


EJ 


LDTIME 


IJZAEXIO 


EJ 


LPCOMNT 


IJZADPRT 


EG 


LPHEAD 


IJZADPRT 


EG 


LPRSULT 


IJZADPRT 


EG 


LYYCNV4 


IJZAD065 


CL 


LYYCONVT 


IJZAD065 


CL 


L32STCOM 


IJZAD032 


AM 


L33DECOD 


IJZAD033 


AN 


L37INERR 


IJZAD037 


BR 


L37PPRNT 


IJZAD037 


BR 


L37RC0 


IJZAD037 


BQ 


L37RC12 


IJZAD037 


BQ 


L37RC16 


IJZAD037 


BQ 


L37RC4 


IJZAD037 


BQ 


L37RC8 


IJZAD037 


BQ 


L37READ 


IJZAD037 


BR 


L3 7 RE ADR 


IJZAD037 


BR 


L37WRRTN 


IJZAD037 


BQ 


L371WAY 


IJZAD037 


BQ 


L39CCERR 


IJZAD039 


BS 


L39CCMNT 


IJZAD039 


BS1 


L39CFEOP 


IJZAD039 


BS 


L3 9CHCOM 


IJZAD039 


BS 


L39CNURT 


IJZAD039 


BS 


L39CPERR 


IJZAD039 


BS1 


L39CPLV2 


IJZAD039 


BS1 


L3 9CSWPR 


IJZAD039 


BS1 


L39C20R3 


IJZAD039 


BS1 


L3 9DPRNT 


IJZAD039 


BS1 


L39DSCPR 


IJZAD039 


BS1 


L3 9DTAPR 


IJZAD039 


BS1 


L39ELTL 


IJZAD039 


BS 


L39EPOPT 


IJZAD039 


BS 


L39ERRPR 


IJZAD039 


BS 


L39FMCTL 


IJZAD039 


BS1 


L39FORMS 


IJZAD039 


BS1 


L39PCCW 


IJZAD039 


BS1 


L39PRCAT 


IJZAD039 


BS 


L39PRNT 


IJZAD039 


BS1 


L39PROPT 


IJZAD039 


BS 


L3 9PRRTN 


IJZAD039 


BS1 


L39RC0 


IJZAD039 


BS 


L39RC4 


IJZAD039 


BS 


L39RET 


IJZAD039 


BS 


L39RTNUM 


IJZAD039 


BS 



L39SETBT 


IJZAD039 


BS 


L39SNSPR 


IJZAD039 


BS1 


L39SYNME 


IJZAD039 


BS 


L52CARDN 


IJZAD052 


AF 


L52CECOM 


IJZAD052 


AE 


L52CHDEV 


IJZAD052 


AF1 


L52CHDMP 


IJZAD052 


AF 


L52CHKTF 


IJZAD052 


AE 


L52CHPER 


IJZAD052 


AF 


L52CHTCH 


IJZAD052 


AF1 


L52COPT 


IJZAD052 


AF 


L52COPTC 


IJZAD052 


AF1 


L52CPRMT 


IJZAD052 


AF 


L52CTST 


IJZAD052 


AF 


L52CTSTC 


IJZAD052 


AF1 


L52DDEC 


IJZAD052 


AF1 


L52DUMPA 


IJZAD052 


AF 


L52ERRTS 


IJZAD052 


AF1 


L52EX76 


IJZAD052 


AF1 


L52NTLK 


IJZAD052 


AF 


L52N1052 


IJZAD052 


AF1 


L52N3SL 


IJZAD052 


AF1 


L520PTD 


IJZAD052 


AE 


L520PTPR 


IJZAD052 


AE 


L520PTRT 


IJZAD052 


AE 


L52PDEV 


IJZAD052 


AF 


L52POPT 


IJZAD052 


AF 


L52PROMP 


IJZAD052 


AF1 


L52PTST 


IJZAD052 


AF 


L52REIT 


IJZAD052 


AE 


L52RSTLP 


IJZAD052 


AF 


L52R2000 


IJZAD052 


AE 


L52R2010 


IJZAD052 


AE 


L52R2020 


IJZAD052 


AE 


L52R3000 


IJZAD052 


AF 


L52R4000 


IJZAD052 


AF1 


L52RU010 


IJZAD052 


AF1 


L52R5000 


IJZAD052 


AF 


L52SKPPR 


IJZAD052 


AE 


L52SLCNT 


IJZAD052 


AF1 


L52SVPTR 


IJZAD052 


AF1 


L52TLK 


IJZAD052 


AF 


L523SL 


IJZAD052 


AF1 


L57CCLN 


IJZATOLT 


DE 


L60CNDR 


IJZAO60 


CE 


L60CNVRT 


IJZADO60 


CE 


L60CTECB 


IJZADO60 


CE 


L60NODEV 


UZADO60 


CE 


L60NOERR 


IJZADO60 


CE 


L60NRFNM 


IJZADO60 


CE 


L62CTCBA 


IJZAD062 


CG 


L62EVLO 


IJZAD062 


CG 


L62PCAW 


IJZAD062 


CG 


L62PCC 


IJZAD062 


CG 


L62PRNT 


IJZAD062 


CG 


L62PRT 


IJZAD062 


CG 


L62RCCOK 


IJZAD062 


CG 


L62RCOC 


IJZAD062 


CG 


L62RET 


IJZAD062 


CG 
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L62RTOC 


IJZAD062 


CG 


L70ALTPR 


IJZADO70 


CM 


L70CONT1 


IJZADO70 


CM 


L70 PRINT 


IJZADO70 


CM 


L78CABTM 


IJZAD078 


CT 


L78DEVDN 


IJZAD078 


CT 


L78ERMSG 


IJZAD078 


CT 


L78ER1 


IJZAD078 


CT 


L78EXIT 


IJZAD078 


CT 


L78LOOP 


IJZAD078 


CT 


L78NWAIT 


IJZAD078 


CT 


MOVE 


IJZAEXIO 


EJ 


MOVEC 


IJZACMNT 


EC 


M24CHKIT 


IJZAD024 


BJ 


M24MTNSG 


IJZAD024 


BJ 


M37LOOPX 


IJZAD037 


BR 


NDRUTINE 


IJZAOPEN 


EL 


NOINT 


IJZAWAIT 


ER 


NONXTENT 


IJZAOPEN 


EL 


NORML 


IJZADO02 


AU 


NXCCW 


IJZAEXIO 


EJ 


N31VALAD 


IJZAD031 


AH 


N31VLRNG 


IJZAD031 


AJ 


N32CLURN 


IJZAD032 


AL 


N32CLURT 


IJZAD032 


AL 


N32DX2TB 


IJZAD032 


AL 


N32TMPLD 


IJZAD032 


AL 


N32TRCOM 


IJZAD032 


AL 


N32UMTST 


IJZAD032 


AM 


N32XTNUM 


IJZAD032 


AM 


ONCEMORE 


IJZADO02 


AU 


OUTPUTEX 


IJZAOPUT 


EM 


PABCOMP 


IJZADOAB 


DB 


PABGOOD 


IJZADOAB 


DB 


PABRET 


IJZADOAB 


DB 


PABTIME 


IJZADOAB 


DB 


PHDA 


IJZAHEAD 


EK 


PHDC 


IJZAHEAD 


EK 


PHDD 


IJZAHEAD 


EK 


PHD13 


IJZAHEAD 


EK 


PRINT 


IJZADPRT 


EG 


PRJA 


I JZADPRT 


EG 


PRJB 


IJZADPRT 


EG 


PR JO IN 


IJZAHEAD 


EK 


PRSA 


IJZARSLT 


EP 


PRSB 


IJZARSLT 


EP 


PRSC 


IJZARSLT 


EP 


PRSE1 


IJZARSLT 


EP 


PRSE2 


IJZARSLT 


EP 


PRSG 


IJZARSLT 


EP 


PRSG1 


IJZARSLT 


EP 


PRSL 


IJZARSLT 


EP 


PRSM 


IJZARSLT 


EP 


PRSN 


IJZARSLT 


EP 


PRSR 


IJZARSLT 


EP 


PRSX 


IJZARSLT 


EP 


PRSZ 


IJZARSLT 


EP 



PRTMSG 


IJZAEXIO 


EJ 


PRTOFF 


IJZAOPEN 


EL 


PUBEND 


IJZACKTP 


EB 


PUBEND1 


IJZACKTP 


EB 


PUT21LL 


IJZAOPEN 


EL 


PUT21UL 


IJZAOPEN 


EL 


P31TNTAB 


IJZAD031 


AM 


P32T256H 


IJZAD032 


AK 


P32VLTST 


IJZAD032 


AK 


P71DVCOM 


IJZAD071 


CN 


RDATA1 


IJZARATA 


EN 


RDATA2 


IJZARATA 


EN 


RDATA3 


IJZARATA 


EN 


RDATA4 


IJZARATA 


EN 


REPLYNO 


IJZADO02 


AU 


RLSYS 


IJZATIME 


EQ 


RSTREGS 


IJZATIME 


EQ 


RSTRGS 


IJZAEXIO 


EJ 


R10GD1 


IJZADO10 


BD 


R10RETN 


IJZADO10 


BD 


R10WAIT 


IJZADO10 


BD 


RIO WRIT 


IJZADO10 


BD 


R10WRITE 


IJZADO10 


BD 


R24EADD 


IJZAD024 


BJ 


R24ETRN 


IJZAD024 


BJ 


R24KCARD 


IJZAD024 


BJ 


R31SETSW 


IJZAD031 


AH 


R32ALDEC 


IJZAD032 


AM 


R32DECOD 


IJZAD032 


AM 


R32ETRN0 


IJZAD032 


AM 


R32ETRN1 


IJZAD032 


AK 


R32SETSW 


IJZAD032 


AK 


R32TURN1 


IJZAD032 


AL 


R33ETRN 


IJZAD033 


AN 


SETAPLVL 


IJZADPRT 


EG 


SETCATS 


IJZADPRT 


EF 


SETFE2 


IJZADPRT 


EF 


SETM1 


IJZACKTP 


EB 


SETM2 


IJZACKTP 


EB 


SETM3 


IJZACKTP 


EB 


SETM4 


IJZACKTP 


EB 


SETM5 


IJZACKTP 


EB 


SETPFLG 


IJZACKTP 


EB 


SKIP01 


IJZAOPEN 


EL 


SKIP02 


IJZAOPEN 


EL 


SKIP03 


IJZAOPEN 


EL 


SKIP05 


IJZAOPEN 


EL 


STRSLTS 


IJZATIME 


EQ 


SOOASTK 


IJZADO00 


AR1 


SOOBAD 


IJZADO00 


AQ 


S00BAD1 


IJZADO00 


AQ 


S00CCB2 


IJZADO00 


AR 


S00CECM2 


IJZADO00 


AR 


S00CECOM 


IJZADO00 


AR 


SOOCHKBT 


IJZADO00 


AQ 


SOOCHKCP 


IJZADO00 


AR1 


SOOCHKLP 


IJZADO00 


AP 


S00CHKOL 


IJZADO00 


AP 


SOOCHKRT 


IJZADO00 


AR 


S00CHK1 


IJZADO00 


AR 


S00CHK2 


IJZADO00 


AR1 


SOOCLTST 


IJZADO00 


AR 
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SOOCMINT 


IJZADOOO 


AP 


SOOCNVT 


IJZADO00 


AR 


SOOCOMM 


IJZADOOO 


AQ 


SOOCPCHK 


IJZADOOO 


AR 


SOOCSIZE 


IJZADOOO 


AQ 


SOODEVOK 


IJZADOOO 


AQ 


SOODEVUP 


IJZADOOO 


AP 


SOODONE 


IJZADOOO 


AQ 


SOODPROT 


IJZADOOO 


AP 


SOODTERM 


IJZADOOO 


AR 


SOOEND 


IJZADOOO 


AR1 


SOOERRCT 


IJZADOOO 


AR 


SOOFINL 


IJZADOOO 


AQ 


SOOFIRST 


IJZADOOO 


AP 


SOOFLSK 


IJZADOOO 


AP 


SOOFPOLD 


IJZADOOO 


AQ 


SOOFP1 


IJZADOOO 


AQ 


S00FP2 


IJZADOOO 


AP 


SOOLDPTR 


IJZADOOO 


AP 


SOOLDRTN 


IJZADOOO 


AQ 


SOOLOAD 


IJZADOOO 


AP 


S00MSG4 


IJZADOOO 


AR1 


SOOMVCDS 


IJZADOOO 


AP 


SOONOAST 


IJZADOOO 


AR1 


SOONOCCB 


IJZADOOO 


AR 


SOONXNEW 


IJZADOOO 


AQ 


SOONXTST 


IJZADOOO 


AQ 


SOOOLD 


IJZADOOO 


AP 


SOOPRIM 


IJZADOOO 


AQ 


SOOSTCH 


IJZADOOO 


AR1 


SOOSTPTR 


IJZADOOO 


AR 


SOOTSTIN 


IJZADOOO 


AP 


SOOTSTND 


IJZADOOO 


AP 


SOOUPDT 


IJZADOOO 


AP 


S11BIT 


IJZADOll 


AZ 


S11CKCHN 


IJZADOll 


AZ1 


S11CKERR 


IJZADOll 


AZ1 


S11CK01 


IJZADOll 


AY 


S11CK02 


IJZADOll 


AY 


S11CK03 


IJZADOll 


AY 


S11CK04 


IJZADOll 


AY 


S11COUNT 


IJZADOll 


AZ1 


S11CSYMB 


IJZADOll 


AY 


S11DIAL 


IJZADOll 


AZ 


S11DIALQ 


IJZADOll 


AZ1 


S11ENBLE 


IJZADOll 


AZ 


S11EROUT 


IJZADOll 


AZ 


S11EXGOD 


IJZADOll 


AZ1 


S11EXG02 


IJZADOll 


AZ1 


S11GO 


IJZADOll 


AZ 


S11GOOD 


IJZADOll 


AZ 


S11GOON 


IJZADOll 


AY 


S11HDRM 


IJZADOll 


AY 


S11MSG2 


IJZADOll 


AZ1 


S11NOHD 


IJZADOll 


AZ 


S11NONE 


IJZADOll 


AY 


S11NOPER 


IJZADOll 


AZ 


SUNOS NS 


IJZADOll 


AZ 


S11NOTEL 


IJZADOll 


AZ 


S110K 


IJZADOll 


AY 



S11RETRY 


IJZADOll 


AZ 


S11RET14 


IJZADOll 


AY 


S11TEST 


IJZADOll 


AZ 


S11TIMEO 


IJZADOll 


AZ1 


S20COMP 


IJZADOAC 


DC 


S20FOUND 


IJZADOAC 


DC 


S20GO 


IJZADOAC 


DC 


S20LEVOK 


IJZADOAC 


DC 


S20RCFR 


IJZADOAC 


DC 


S20RTURN 


IJZADOAC 


DC 


S21BACK 


IJZAD021 


BG 


S21CHK 


IJZAD021 


BF 


S21CLASS 


IJZAD021 


BG 


S21CMP 


IJZAD021 


BF 


S21CONT 


IJZAD021 


BF 


S21END 


IJZAD021 


BF 


S21ETABL 


IJZAD021 


BF 


S21FRTNG 


IJZAD021 


BF 


S21FSRCH 


IJZAD021 


BF 


| S21FTEST 


IJZAD021 


CM 


S21FXCH 


IJZAD021 


BG 


S21FXCU 


IJZAD021 


BG 


S21FXDCU 


IJZAD021 


BG 


S21FXDDV 


IJZAD021 


BG 


S21FXDV 


IJZAD021 


BG 


| S21GOAD 


IJZAD021 


CL 


S21GRAB 


IJZAD021 


BG 


S21LEV2 


IJZAD021 


BF 


S21RETCH 


IJZAD021 


BF 


S21TYPE 


IJZAD021 


BG 


S22ALOCR 


IJZAD022 


BH 


S22ALOCT 


IJZAD022 


BH 


S22ASK 


IJZAD022 


BH 


S22CMP 


IJZAD022 


BH 


S22COMPR 


IJZAD022 


BH 


S22FND 


IJZAD022 


BH 


S22GOAHD 


IJZAD022 


BH 


S220K 


IJZAD022 


BH 


S22PRIM 


IJZAD022 


BH 


S22PROC 


IJZAD022 


BH 


S22QNO 


IJZAD022 


BH 


S22RCTEN 


IJZAD022 


BH 


S22ZOROR 


IJZAD022 


BH 


S31CAN 


IJZAD031 


AH 


S31CAN02 


IJZAD031 


AJ 


S31CAN05 


IJZAD031 


AH 


S31CAN06 


IJZAD031 


AH 


S31CONTX 


IJZAD031 


AJ 


S31DCS 


IJZAD031 


AH 


S31FND 


IJZAD031 


AJ 


S31INCR 


IJZAD031 


AJ1 


S31NOTAS 


IJZAD031 


AJ1 


S31NOTAS 


IJZAD02U 


BJ 


S31SHAR 


IJZAD031 


AJ1 


S31TESTL 


IJZAD031 


AJ1 


S32CLSTN 


IJZAD032 


AM 


S32ETUP 


IJZAD032 


AK 


S32ETUP1 


IJZAD032 


AL 
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S32TFLG 


IJZAD032 


AM 


S32W2RTN 


IJZAD032 


AM 


S35CCB2 


IJZAD035 


BN 


S35CHECK 


IJZAD035 


BN 


S35CKNXT 


IJZAD035 


BN 


S35CLEAR 


IJZAD035 


BN 


S35CONN 


IJZAD035 


BN 


S35CONT 


IJZAD035 


BN 


S35DEV 


IJZAD035 


BN 


S35FND 


IJZAD035 


BN 


S35GOON 


IJZAD035 


BN 


S35NOATN 


IJZAD035 


BN2 


S35NOBUS 


IJZAD035 


BN2 


S35PRGE 


IJZAD035 


BN 


S35RET8 


IJZAD035 


BN 


S35REXIO 


IJZAD035 


BN2 


S35RTEN 


IJZAD035 


BN2 


S35SCAN 


IJZAD035 


BN1 


S36BCTLP 


IJZAD036 


BP 


S3 6 CHAR 


IJZAD036 


BP 


S36CKDE 


IJZAD036 


BP1 


S36CKNXT 


IJZAD036 


BP1 


S36CKTME 


IJZAD036 


BP 


S36CKWT 


IJZAD036 


BP1 


S36CLNI 


IJZAD036 


BP1 


S36COUNT 


IJZAD036 


BP2 


S36END 


IJZAD036 


BP1 


S36EX02 


IJZAD036 


BP 


S36FINAL 


IJZAD036 


BP2 


S36GOBCK 


IJZAD036 


BP2 


S36GOON 


IJZAD036 


BP 


S36INTCN 


IJZAD036 


BP1 


S36IOTME 


IJZAD036 


BP1 


S36PROC 


IJZAD036 


BP 


S36PURGE 


IJZAD036 


BP1 


S36RCZER 


IJZAD036 


BP1 


S36SETRT 


IJZAD036 


BP 


S36SPEC 


IJZAD036 


BP 


S36TEST 


IJZAD036 


BP2 


S36TIME 


IJZAD036 


BP1 


S36UNAD 


IJZAD036 


BP 


S36USEIT 


IJZAD036 


BP2 


S36XTEST 


IJZAD036 


BP2 


S38COMPL 


IJZAD036 


BP 


S3 8DFLT 


IJZAD036 


BP 


S38EARCH 


IJZAD036 


BP 


S38FOUND 


IJZAD036 


BP 


S38LEVOK 


IJZAD036 


BP 


S3 8 LOOP 


IJZAD036 


BP 


S38QPOLL 


IJZAD036 


BP 


S38RC12 


IJZAD036 


BP 


S38RTURN 


IJZAD036 


BP 


S38STIME 


IJZAD036 


BP 


S38WAIT 


IJZAD036 


BP 


S40BACK 


IJZADO40 


BT 


S40FG1 


IJZADOaO 


BT 


S40FG2 


IJZADOUO 


BT 


SUOGOBYR 


IJZADO40 


BT 


S40ISONE 


IJZADO40 


BT 


S40ISTPA 


IJZADO40 


BT 


S4 0NOQUI 


IJZADO40 


BT 



S40QMODE 


IJZADO40 


BT 


S40RTNBY 


IJZADO40 


BT 


S4 4 AGAIN 


IJZAD044 


CB 


S44AGN2 


IJZAD044 


CB 


S44AGN3 


IJZAD0U4 


CB 


saacKcci 


IJZAD044 


CC 


S44CKF1 


IJZAD0U4 


CB 


S44CKF2 


IJZAD044 


CB 


S44CKM 


IJZAD044 


CC 


SUaCKMOD 


uzADoaa 


CC 


S44CNFRM 


IJZAD044 


CB 


S44COMP 


IJZAD044 


CB 


S4UENTQU 


IJZAD044 


CC 


S44EXTIO 


IJZAD044 


CB 


S44FND 


IJZAD044 


CB 


S4UISHIO 


IJZAD044 


CB 


S440K 


IJZAD044 


CB 


S44POST 


IJZADOU4 


CC 


saaposTc 


IJZAD044 


CB 


S44RCO 


IJZAD044 


CC 


saaRcoi 


IJZAD044 


CC 


S44RET4 


IJZAD044 


CB 


S44SDT 


IJZAD044 


CC 


S44SECON 


IJZAD044 


CB 


S44SNS 


IJZAD044 


CC 


S44QSOKR 


IJZAD044 


CC 


S98CKDE 


IJZAD098 


cz 


S98CONE 


IJZAD098 


ex 


S98ENDTT 


IJZAD098 


ex 


S98FFEVT 


IJZAD098 


CY 


S98FILIN 


IJZAD098 


CZ 


S98FLDA 


IJZAD098 


CY 


S98FRET 


IJZAD098 


CZ 


S98FULL 


IJZAD098 


CY 


S98FULL2 


IJZAD098 


CY 


S98INTH 


IJZAD098 


CX 


S98INTS 


IJZAD098 


CY 


S98IORET 


IJZAD098 


CX 


S98LOOP 


IJZAD098 


CZ 


S98NGOOD 


IJZAD098 


CZ 


S980KERR 


IJZAD098 


CZ 


S980NEH 


IJZAD098 


CY 


S9 8 OTHER 


IJZAD098 


CX 


S98PR0C 


IJZAD098 


CX 


S98RETN 


IJZAD098 


CX 


S98SECOK 


IJZAD098 


CZ 


S98SNFL 


IJZAD098 


CY 


S98TEST 


IJZAD098 


CX 


S98TI0 


IJZAD098 


CZ 


TDDEVCH 


IJZACKTP 


EB 


TESTPTR 


IJZAOPEN 


EL 


TSTFPM 


IJZAEXIO 


EJ 


TSTIME 


IJZACKTP 


EB 


| T32LSHCK 


IJZAD032 


AK 


T32NPR 


IJZAD032 


AK 


T32PNR 


IJZAD032 


AK 


| T32RNS 


IJZAD032 


AM 


1 T32SECT 


IJZAD032 


AK 
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IT32STEST 



U10CONT 

U10CONT1 

U10ERETN 

U10L1 

U10L2 



IJZAD032 



AK 



IJZADO10 BD 

IJZADO10 BD 

IJZADO10 BD 

IJZADO10 BD 

IJZADO10 BD 



U10READ 
U10RETN 
U10WAIT 



WAIT 
WAITCCB 



IJZADO10 BD 
IJZADO10 BD 
IJZADO10 BD 



IJZAWAIT 
IJZAWAIT 



ER 
ER 
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APPENDIX B: 



OLTEP MESSAGE CROSS REFERENCE 



For complete message and response, refer to the DOS OLTEP 
publication listed in the Preface . 



Message 
Number 



E024I 

E030I 

E100I 

04E101D 

E102I 

01E105D 

E106I 

E107I 

E108I 

E108I 

E110I 

E111I 

E112I 

E112I 

E115I 

E117I 

E118I 

E119I 

04E120D 

E122I 

E122I 

E123I 

E124I 

E125I 

E126I 



M essa ge 



NO JIB AVAILABLE 



DEVICE UNSUPPORTED 

• OLT CECOM 1 

(request from the OLT) 

OLTS RUNNING 

ENTER DEV/TEST/OPT 

INPUT DATA DOES NOT CONTAIN THREE SLASHES 

OPTIONS ARE XXX, XXX 

INVALID ENTRY IN DEV FIELD- XX 

INVALID ENTRY IN DEV FIELD-XX 

TESTABLE DEVICES MAY NOT EXCEED 16 

NO DEVICES AVAILABLE FOR TEST 

INVALID ENTRY IN TEST FIELD-XX 

INVALID ENTRY IN TEST FIELD-XX 

INVALID ENTRY IN OPT FIELD-XXX 

SECTION XXXXXXXX NOT FOUND 

UNREADABLE TAPE LABEL 

NON-STANDARD TAPE LABEL 

CAN VOL DATA BE DESTROYED 

VOL CANNOT BE USED AS SCRATCH- SECURITY PROTECTED 

VOL CANNOT BE USED AS SCRATCH- SECURITY PROTECTED 

VOL CANNOT BE USED AS SCRATCH- UNEXPIRED DATE 

CE VOL IS NOT ON UNIT XXXX 

UNREADABLE LABEL ON — XXXX 

SENSE TO BIN OF XXXX DOES NOT INDICATE CE VOL MOUNTED 



Issuing 


| Chart 


Routine 


ID 


IJZAD056 


AS 


IJZAD085 


CV 


OLT 


| BS 


OLT 




IJZADOLT 


AA 


IJZAD052 


i AE 


IJZAD052 


| AF 


IJZAD033 


AN 


IJZAD052 


| AF 


IJZAD031 


AH 


IJZAD031 


AJ 


IJZAD031 


AH 


IJZAD052 


AF 


IJZAD032 


AK 


IJZAD033 


AN 


IJZADO00 


AP 


IJZADO03 


AV 


IJZADO03 


AV 


IJZAD022 


BH 


IJZADO03 


AW 


IJZADO07 


AX 


IJZADO03 


AW 


IJZADO07 


AX 


IJZADO07 


AX 


IJZADO02 


AU 
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E127I 

E127I 

E129I 

E129I 

E130I 

E130I 

E131I 

E132I 

E133I 

04E135D 

E136I 

E137I 

E137I 

E137I 

E137I 

E137I 

04E139D 

04E139D 

04E139D 

04E139D 

04E139D 

04E139D 
| 04E140D 

E147I 

E148I 

E149I 
| 02E154D 

E155I 

E157I 

E157I 

E158I 

E158I 

E161I 

E161I 



NO CDS FOR XXXXXXXX 

NO CDS FOR XXXXXXXX 

FIRST ERROR COMMUNICATION 

FIRST ERROR COMMUNICATION 

INTERVENTION REQUIRED XXXX 

INTERVENTION REQUIRED XXXX 

SENSE TO XXXX FAILED 

CE BIT WILL NOT RESET 

TIMER NOT STEPPING. TIMING TEST BYPASSED 

ARE TIME DEPENDENT DEVICES ACTIVE? 

TIMING TEST BYPASSED 

SNS-XX...X CSW-ZZ...Z 

SNS-XX...X CSW-ZZ...Z 

SNS-XX...X CSW-ZZ...Z 

SNS-XX...X CSW-ZZ...Z 

SNS-XX...X CSW-ZZ...Z 

REPLY B TO BYPASS, R TO RETRY, P TO PROCEED 

REPLY B TO BYPASS, R TO RETRY, P TO PROCEED 

REPLY B TO BYPASS, R TO RETRY, P TO PROCEED 

REPLY B TO BYPASS, R TO RETRY, P TO PROCEED 

REPLY B TO BYPASS, R TO RETRY, P TO PROCEED 

REPLY B TO BYPASS, R TO RETRY, P TO PROCEED 

IS CE VOL IN BIN OF XXXX. REPLY, YES OR NO 

ILLUSTRATIVE EXAMPLES-DEV 

ILLUSTRATIVE EXAMPLES-TEST 

TABLE OF OPTIONS 

(request from the OLT) 

TEST SECTIONS MAY NOT EXCEED 26 

CATASTROPHIC ERROR ON DEVICE XXXX DDDDDDDD 

CATASTROPHIC ERROR ON DEVICE XXXX DDDDDDDD 

S(T) XXXXXX ($) UNIT YYYY DDDDDDDD 

S(T) XXXXXX UNIT YYYY 

FOR HELP, ENTER PROMPT XXX 

FOR HELP, ENTER PROMPT XXX 



j IJZADOOOi 


AP 


| IJZAD031 


AJ1 


| IJZAD03 9 


BS 


| IJZADRPT 


EH 


| IJZAD056 


AT 


| IJZADO02 


AU 


| IJZADO02 


AU 


| I JZADO02 


AU 


| IJZACKTP 


EB 


| IJZACKTP 


EB 


1 IJZACKTP 


EB 


| IJZAD056 


AT 


| IJZADO02 


AU 


| IJZADO07 


AX 


| IJZAD057 


AG 


| IJZAD078 


CT 


| IJZAD056 


AT 


| IJZADO02 


AU 


| IJZADO03 


AV 


| IJZADO03 


AW 


| IJZADO07 


AX 


| IJZAD057 


AG 


| IJZADO02 


AU 


| IJZAD071 


CN 


| IJZAD072 


CP 


| IJZAD073 


CQ 


| OLT 




| IJZAD032 


AK 


| IJZADPRT 


EH 


| IJZAD03 9 


BS 


| IJZADO00 


i AR 


| IJZADO00 


1 AQ 


| IJZAD031 


i AH 


| IJZAD032 


| AK 
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E161I 

E161I 

E163I 

E1631 

E164I 

E164I 

E165I 

E166I 

E167I 

E167I 

E169I 

E174I 

E175I 

E176I 

E198I 

04E199D| 

04E199D| 

04E199D| 

04E199D| 

04E199D| 

04E199D| 

04E199D| 

04E199D| 

04E199D| 

04E199D| 

04E199D| 

04E199DI 

E201I 

E210I 

04E221D| 

04E221DI 

E222I 

E222I 

E225I 



FOR HELP, ENTER PROMPT XXX 

FOR HELP, ENTER PROMPT XXX 

* RETAIN/370 READY 

* RETAIN/ 370 READY 

UNABLE TO ESTABLISH CONTACT WITH RETAIN/370 CENTER 
UNABLE TO ESTABLISH CONTACT WITH RETAIN/370 CENTER 
ENTRY IN DEVICE FIELD NOT ALLOWABLE 
OLT DOES NOT SUPPORT TALK 
PERMANENT ERROR ON REI DEVICE 
PERMANENT ERROR ON REI DEVICE 

* RETAIN/370 TERMINATED 

UNABLE TO RESTORE LABEL ON DEVICE XXXX 

SYNTAX ERROR 

MUTUALLY EXCLUSIVE OPTIONS HAVE BEEN SELECTED 

NOT ALL ROUTINES SELECTED WERE RUN 

INCORRECT REPLY 

INCORRECT REPLY 

INCORRECT REPLY 

INCORRECT REPLY 

INCORRECT REPLY 

INCORRECT REPLY 

INCORRECT REPLY 

INCORRECT REPLY 

INCORRECT REPLY 

INCORRECT REPLY 

INCORRECT REPLY ^ 

INCORRECT REPLY 

DEV DESCRIPTORS DO NOT MEET REQUIREMENTS 

ROUTINE XXX BYPASSED 

CAN FOREGROUND BE QUIESCED? 

CAN FOREGROUND BE QUIESCED? 

STOP FOREGROUND JOBS 

STOP FOREGROUND JOBS 

XX. .X BYPASSED-CONSOLE KEYBOARD NOT AVAILABLE 



| IJZAD033 


AN 


| IJZAD052 


j AF 


| IJZAD076 


| CR 


| IJZAD077 


| CS 


| IJZAD076 


| CR 


| IJZAD077 


| CS 


| IJZAD031 


| AH 


| IJZAD052 


| AF 


| IJZADO10 


i BA 


| IJZAD078 


CT 


| IJZAD078 


CT 


| IJZAD057 


AG 


| IJZAD037 


BR 


| IJZAD033 


AN 


| IJZADO00 


AR 


| IJZADO02 


AU 


| IJZADO03 


AW 


| IJZADO03 


AV 


1 IJZAD056 


AT 


| IJZADO07 


AX 


| IJZAD022 


BH 


| IJZAD052 


AF 


| IJZAD024 


BJ 


| IJZAD026 


BL 


| IJZADOU4 


CB 


1 IJZAD057 


AG 


| IJZADO4 


BT 


| IJZADO00 


AQ 


| IJZADOU7 


CD 


| IJZADO4 


BT 


| IJZAD044 


CC 


| IJZADO4 


BT 


| IJZAD044 


CB 


| IJZADO00 


AR 
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04E227D 

04E228D 

E229I 

04E230D 

E231I 
|E231I 

E232I 

E233I 
|E234I 

E235I 

E235I 

E236I 

E236I 

E237I 

E237I 

E238I 

E239I 

E240I 

E241I 

E2U2I 

E250I 

E313I 
E317I 
E400I 
EU01I 
E402I 
E403I 
E404I 
EU05I 

E406I 
E407I 
E408I 



OLTEP TERMINATED 

ENTER 1 BYTE TERM CONTROL TYPE CODE 

IS HISTORY TAPE MOUNTED? 

SECTION XX,. X RTN YY. . Y BYPASSED 

MOUNT VOL XX. .X 

XX.. X CANNOT RUN ON YYYY 

XX.. X CANNOT RUN ON YYYY 

OLTEP CANCELLED 

DO NOT INITIATE ANY FOREGROUND JOBS 

DEVICE XXXX NOT TESTED. NO LOGICAL UNIT ASSIGNMENT 

INVALID TAPE MOUNTED ON DEV XXXX 

INVALID TAPE MOUNTED ON DEV XXXX 

XXXX IS A TEST DEVICE 

XXXX IS A TEST DEVICE 

DEVICE HAS NO LOGICAL UNIT ASSIGNMENT 

DEVICE HAS NO LOGICAL UNIT ASSIGNMENT 

XXXX BYPASSED- CORE NOT AVAILABLE 

XXXX BYPASSED-KEYBOARD NOT AVAILABLE 

CPU CDS NOT AVAILABLE 

LOST DATA - RE-ENTER MESSAGE 

PROMPT NOT ALLOWED FROM REMOTE 

WHEN CARD INPUT IS USED, SELECTIONS ARE PRINTED ON 
SYSLST AND SYSLOG 

UNIT TEST CANCELED 

CHAN REQUEST INVALID 

TP LINE CONNECTION, LINE=XXXX TERMINAL=XXXXXXXX 

REQUIRED DATA NOT FOUND IN CDS FOR XXXXXXXX 

SYMBOLIC NAME FIELD NOT PRESENT IN CDS 

INVALID LINE CONN COMMAND SEQUENCE IN CDS 

DIAL DIGIT COUNT EXCEEDS 20 

OPERATOR CALL REQUIRED, TELEPHONE NUMBER NOT PROVIDED 
IN CDS 

OPERATOR CALL TERMINAL ON NUMBER XYZ 

OPERATOR CALL NOT COMPLETED WITHIN TIME LIMITS 

SIO RETURNED A CC=3, NOT OPERATIONAL 



IJZxAD052| AE 



j IJZAD085 


CU 


| IJZAD02 6 


BL 


| IJZADO4 


BT 


| IJZAD024 


BJ 


| IJZADO00 


AQ 


| IJZADO4 


BT 


| IJZADOLT 


AA 


| IJZADO4 


BT 


| IJZAD031 


AJ1 


1 IJZAD026 


BL 


| IJZADO00 


AP 


| IJZAD024 


BJ 


| IJZAD026 


BL 


| IJZAD024 


BJ 


| IJZAD026 


BL 


| IJZADO00 


AQ 


| IJZADO00 


AR 


| IJZADOLT 


AB 


| IJZADO10 


BA 


| IJZAD052 


AE 


| IJZADOLT 


AA 


| IJZAEXIO 


EJ 


| IJZACKTP 


EB 


| IJZADOll 


AY, AZ, AZ1 


| IJZADOll 


AY, AZ 


| IJZADOll 


AY 


| IJZADOll 


AY 


| IJZADOll 


AY 


| IJZADOll 


AZ 


| IJZADOll 


AZ 


| IJZADOll 


AZ 


| IJZADOll 


AZ1 
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E4 09I | SIO FINAL STATUS ERROR CSW=XXXXXXXXXXXXXXXX SNS=YYYY 

E410I | FINAL STATUS NOT RECEIVED FROM I/O OPERATION 

EU12I | CCW CHAIN TERMINATED ON XXXXXXXXXXXXXXXX 

EU13I | REQUIRED CDS POINTER NOT PRESENT 

EU1UI I OLTEP WILL DISABLE ALL ENABLED TP LINES 



IJZAD011I AZ 

I 

IJZAD011I AZ 

I 
IJZAD011I AZ 

I 
IJZAD011I AY 

I 
IJZAD057| AG 
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APPENDIX C: (DELETED) 



Appendix C is deleted in this edition. 
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APPENDIX D: ON LINE TEST COMMON AREAS 



SECTION PREFACE 



Label 



SVAREA 



NO. Of 
Bytes 



Definitions 



18 Full- Save Area 
words 



Additional save areas (optional) would follow SVAREA in 
displacements of 18 full-words. 



No. of 
Label Bytes Definitions 



RTN# 


1 


#MODEL 


1 


#FEAT 


1 


#CLASS 


1 


#TYPE 


1 


#CMODEL 


1 


#CFEAT 


1 


#CCLASS 


1 


#CTYPE 


1 


RM 


2 




1 


PLINK 


4 




1 


REFNUM 


1 


#COUNT 


2 


RTSIZE 


4 


MOSIZE 


4 


DCHB 


4 


ECA 


3 


RME 


0<EQU*> 



Active Routine Number 

Model Needed 

Feature Needed 

Class Needed 

Type Needed 

Model - Must Not Have 

Feature - Must Not Have 

Class - Must Not Have 

Type - Must Not Have 

Mask for Routines 1-16 

Reserved 

PLINK Management 

Reserved 

Reference Number 

Loop on Error Default 

Root and PLINK Module Size 

MORECORE Requirement Size 

Length/Displacement to DCHB (TOTE) 

FE Change Announcement Letter 

Extended Routine Mask 
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SECTION DESCRIPTORS 



The first 16 bytes of information preceding every program are 
S ect ion Descriptors, The labels for this information vary 
depending upon whether or not the short or long form of 
initialize is used. The following expansion is used in the long 
form* 

No. of 
L abe l Bytes Defini tion 

SECTID 8 Section ID 

LEVEL 2 Level 

RTNDISP 2 Displacement to RTN# 

INST 4 Pointer to first Executable instruction. 

The following expansion is used in the short form. 

No. of 
Label Bytes Definition 

SECTIDSH 8 Section ID 

LEVELS H 2 Level 

PLKDISP 2 Displacement to PLINK Management 

INSTSH 4 Pointer to first Executable Instruction 
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Core Image 


Relocatable 






IJZAD024 


IJZAD024* 


DNl. 


019, 


00 


Phase Name 


MOdule_Name 


Card ID 




IJZAD026 


IJZAD026* 


DNl. 


020. 


00 










IJZAD028 


IJZAD028* 


DNl. 


021. 


00 


$$BOLTEP 


IJZAOLTP* 


DNl, 054. 


00 


IJZAD031 


IJZAD031* 


DNl. 


022. 


00 


$$BSOPEN 


IJZAOPEN* 


DNl. 055. 


00 


IJZAD032 


IJZAD032* 


DNl. 


023. 


00 


$$BTOLTP 


IJZATOLT* 


DNl. 059. 


50 


IJZAD033 


IJZAD033* 


DNl. 


024. 


00 


$$BZTIME 


IJZATIME* 


DNl. 059. 


00 


IJZAD035 


IJZAD035* 


DNl. 


025. 


00 










IJZAD036 


IJZAD036* 


DNl. 


026. 


00 


IJZACEOM 


IJZACEOM* 


DNl. 001. 


00 












IJZACKTP 


IJZACKTP* 


DNl. 002. 


00 












IJZACMNT 


IJZACMNT* 


DNl. 003. 


00 


IJZAD037 


IJZAD037* 


DNl. 


027. 


00 


IJZACOMP 


IJZACOMP* 


DNl. 004. 


00 


IJZAD039 


IJZAD039* 


DNl. 


028. 


00 


IJZACONV 


IJZACONV* 


DNl. 005. 


00 


IJZADO40 


IJZADO40* 


DNl. 


029. 


00 


IJZADOAA 


IJZADOAA* 


DNl. 007. 


00 


IJZAD041 


IJZAD041* 


DNl. 


030. 


00 


IJZADOAB 


IJZADOAB* 


DNl. 008. 


00 


IJZAD042 


IJZAD042* 


DNl. 


031. 


00 


IJZADOAC 


IJZADOAC* 


DNl. 009. 


00 


IJZAD043 


IJZAD043* 


DNl. 


032. 


00 


IJZADOLT 


IJZADOLT* 


DNl. 010. 


00 


IJZAD044 


IJZAD044* . 


DNl. 


033. 


00 


IJZADPRT 


IJZADPRT* 


DNl. 051. 


00 


IJZAD047 


IJZAD047* 


DNl. 


034. 


00 


IJZAEXIO 


IJZAEXIO* 


DNl. 052. 


00 


IJZAD052 


IJZAD052* 


DNl. 


035. 


00 


I JZ AHEAD 


IJZAHEAD* 


DNl. 053. 


00 


IJZAD056 


IJZAD056* 


DNl. 


036. 


00 










IJZAD057 


IJZAD057* 


DNl. 


037. 


00 


IJZAOPUT 


IJZAOPUT* 


DNl. 056. 


00 












IJZARATA 


IJZARATA* 


DNl. 057. 


00 


IJZADO60 


IJZADO60* 


DNl. 


038. 


00 


IJZARSLT 


IJZARSLT* 


DNl. 058. 


00 


IJZAD061 


IJZAD061* 


DNl. 


039. 


00 


IJZAWAIT 


IJZAWAIT* 


DNl. 060. 


00 


IJZAD062 


IJZAD062* 


DNl. 


040. 


00 


IJZADO00 


IJZADO00* 


DNl. 011. 


00 


IJZAD063 


IJZAD063* 


DNl. 


041. 


00 


IJZADQ01 


IJZADO01* 


DNl. 012. 


00 


IJZAD064 


IJZAD064* 


DNl. 


042. 


00 


IJZADO02 


IJZADO0 2* 


DNl. 013. 


00 


IJZAD065 


IJZAD065* 


DNl. 


043. 


00 


IJZADO03 


IJZADO03* 


DNl. 014. 


00 


IJZADO70 


IJZADO70* 


DNl. 


044. 


00 


IJZADO07 


IJZADO07* 


DNl. 015. 


00 


IJZAD071 


IJZAD071* 


DNl. 


045. 


00 


IJZADO10 


IJZADO10* 


DNl. 015. 


50 


IJZAD072 


IJZAD07 2* 


DNl. 


046. 


00 


IJZADOll 


IJZADOll* 


DNl. 015. 


51 


IJZAD073 


IJZAD073* 


DNl. 


047. 


00 


IJZAD016 


IJZAD016* 


DNl. 016. 


00 


IJZAD076 


IJZAD076* 


DNl. 


047. 


50 










IJZAD077 


IJZAD077* 


DNl. 


047. 


60 


IJZAD021 


IJZAD021* 


DNl. 017. 


00 


IJZAD078 


IJZAD078* 


DNl. 


047. 


70 


IJZAD022 


IJZAD022* 


DNl. 018. 


00 


IJZAD08 5 


IJZAD085* 


DNl. 


048. 


00 










IJZAD09 4 


IJZAD094* 


DNl. 


049. 


00 










1 IJZAD098 
1 IJZAD099 


IJZAD09 8* 
IJZAD099* 


DNl. 
DNl. 


050. 
050. 


00 
01 


♦Microfiche 


Label 
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GLOSSARY OF OLTEP TERMS 



For a more complete list of data processing 
terms, refer to the I BM Data Processing 
T echniques, A Data Processing Glossar y, 
GC20-1699. 

A SCII (Ameri ca n National Standard Code for 
I nformation Interchange) : A 128-character, 
7-bit code. The high-order bit in the 
System/3 60 8-bit environment is zero. 

C E cell : A data cell used to test an IBM 
2321. A CE cell is recognized by a sense 
to bin 0, subcell 19. If the CE sense bit 
is on, the CE cell is mounted. 

C E pack : A disk pack used to test an IBM 
2311 or 2314. It has a volume label of 
VOL1CEPACK. 



On- Line Test (OLT) 



A test program of the 
The tests reside in 



on-line test system 
the core image library, and are brought 
into core storage by OLTEP when requested 
by the operator. 



On- Line Test E xecut i ve Program (OLTEP) : 
The control program of the on-line test 
system. OLTEP is the interface between the 
on-line test and the operating system. 



on-line test system : A control program, 
OLTEP, and a series of tests (OLTs) 
designed to test I/O devices without 
interrupting normal system processing. 



CE volume : If the device is an IBM 2311 or 
2314, see CE pack. If the device is an IBM 
2321, see CE cell. 

c ommunications interval : A period of 
communication between the console operator 
and OLTEP. The operator is requested by 
OLTEP to enter the test-run definition at 
this time. 

data protection : A safeguard invoked to 
prevent the loss or destruction of customer 
data. 

data security: A safeguard invoked to 
prevent the accessing of customer data. 

d efa ult value: A predetermined value used 
in place of an omitted entry. 

expiration date : A date within a tape 
label for Data protection. The tape may 
not be used as a scratch tape until this 
date has expired. 



privile ged i nstruction: An instruction 
that can be executed only while the CPU is 
in the supervisor state. Protection, I/O, 
direct control, and any instructions that 
manipulate the program status words are 
privileged. 

prompting: A request for help made by the 
operator when entering the test-run 
definition. OLTEP prints examples of the 
field requested by the operator. 

Qui §§LC§__Mqde : A mode of operation that 
requires the foreground partitions to be 
stopped by the operator. The operator does 
this on the console by issuing the PAUSE 
EOJ and STOP commands when requested by 
OLTEP. 



^uper^isor state : The state of CPU 
operation that allows execution of 
privileged instructions. When bit 15 
the PSW is zero, the CPU is in the 
supervisor state. 



of 



File Protect Mode (FPM) : A mode of 
operation that insures maximum protection 
and security of customer data. While in 
file protect mode, the system performs no 
write operations, and reads no customer 
data. 



test 77 run def i ni t i on : Information requested 
by OLTEP at the various communications 
intervals. This information consists of 
the device to be tested, the test or test 
routines to be executed, and the options to 
be exercised. 
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INDEX 



Indexes to systems reference library 
manuals are consolidated in the publication 
DOS Master Index , GC 24-5063. For 
additional information about any subject 
listed below, refer to other publications 
for the same subject in the Master Index. 



environmental recording data 13 
error recovery procedures 10 
EXIO 31 
external interrupt handler 43 



$$BOLTEP 45 
$$BSOPEN 49 
$$BTOLTP 45 
$$BZTIME 50 
$DDATE 44 
$DTIME 44 
$MODE 3 4 



features of OLTEP 9 

file protect mode 13 

first error communications interval 

flowcharts 53 

FPM 13 

FREECORE 36 

functions of OLTEP 9 



11 



abbreviations 53 

accessing of environmental recording 

data 13 
ALOCAT 29 



general flow 54 
GETCONFG 28 
glossary 178 
GRAB 28 



CANCEL 11,19 

CCB appendage 43 

CCW message 39 

CE communication 45 

CE volume 12 

CE PACK 12 

CECOM 33 

check teleprocessing 46 

communications interval 11,15,18 

compare 47 

convert 35, 47 

CSW message 39 



DASD 12 

data integrity 10 
data message 40 
data protection 11 
all devices 11 

direct access storage devices 12 
disk 26 

24 

25 
11 



header message 3 8 



general 

IBM 2321 

modules 

tape 25 

tape devices 12 

unit record devices 12 
decode modules 15 
description message 38 
device decode 20 
device ready check 12 
device update 42 
DIO 37 

direct access storage devices 
DPRINT 33 
DUMP 19 



12 



IJZACEOM 


45 


chart 


142 


IJZACKTP 


46 


chart 


143 


IJZACMNT 


46 


chart 


144 


IJZACOMP 


47 


chart 


145 


IJZACONV 


47 


chart 


146 


IJZADOAA 


44 


chart 


137 


IJZADOAB 


44 


chart 


138 


IJZADOAC 


45 


chart 


139 


IJZADOLT 


15 r 17 


chart 


57 


IJZADO00 


15,22 


chart 


72 


IJZADO01 


15,18 


chart 


59 


IJZADO02 


25 


chart 


78 


IJZADO03 


25 


chart 


79 


IJZADO07 


26 


chart 


81 


IJZADO10 


27 


chart 


85 


IJZADOll 


27 


chart 


82 


IJZAD016 


28 


chart 


89 
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IJZAD021 


28 


chart 


91 


IJZAD022 


29 


chart 


93 


IJZAD024 


29 


chart 


94 


IJZAD026 


30 


chart 


96 


IJZAD028 


31 


chart 


97 


IJZAD031 


20 


chart 


65 


IJZAD032 


21 


chart 


68 


IJZAD033 


22 


chart 


71 


IJZAD035 


31 


chart 


98 


IJZAD036 


32 


chart 


101 


IJZAD037 


33 


chart 


104 


IJZAD039 


33 


chart 


106 


IJZADO40 


34 


chart 


108 


IJZAD041 


35 


chart 


109 


IJZAD042 


36 


chart 


110 


IJZAD043 


36 


chart 


113 


IJZAD044 


37 


chart 


114 


IJZAD047 


37 


chart 


116 


IJZAD052 


15,18 


chart 


61 


IJZAD056 


15, 24 


chart 


76 


IJZAD057 


19 


chart 


64 


IJZADO60 


38 


chart 


117 


IJZAD061 


38 


chart 


118 


IJZAD062 


39 


chart 


119 


IJZAD063 


39 


chart 


120 


IJZAD064 


40 


chart 


122 


IJZAD065 


40 


chart 


123 


IJZADO70 


40 


chart 


124 


IJZAD071 


41 


chart 


125 


IJZAD072 


41 


chart 


126 


IJZAD073 


41 


chart 


127 


IJZAD076 


41 


chart 


128 


IJZAD077 


42 


chart 


129 


IJZAD078 


42 


chart 


130 



IJZAD08 5 


42 


chart 


131 


IJZAD094 


43 


chart 


133 


IJZAD098 


43 


chart 


134 


IJZAD099 


17 


chart 


58 


IJZADPRT 


48 


chart 


147 


IJZAEXIO 


48 


chart 


150 


IJZAHEAD 


49 


chart 


151 


IJZAOLTP 


45 


chart 


140 


IJZAOPEN 


49 


chart 


152 


IJZAOPUT 


50 


chart 


153 


IJZARATA 


50 


chart 


154 


IJZARSLT 


50 


chart 


155 


IJZATIME 


50 


chart 


156 


IJZATOLT 


45 


chart 


141 


IJZAWAIT 


51 


chart 


157 



initial communications interval 11 

initializer 1 15,17 

initializer 2 17 

interrupt communications interval 11 

interrupt key 11 



label cross reference 
LETGO 45 
LOGSCAN 30 



158 



main flow 55 

message cross reference 167 
microfiche cross reference 177 
module directory 172 
MORECORE 36 



non-file protect mode 13 



OLT 11 

OLTAM EXIO 4 8 

OLT AM WAIT IO 51 

OLTEP 

function 9 

primary modules 15 

structure 10 
OLTS common area 157 
on line test common area 175 
On Line Tests (OLTS) 11 
operator communication 11 
option decode 22 



178 



output 50 
output writer 4 



partition size 10 

PLINK 31 

pre-release 25 support modules 

print 48 

46 

49 
50 

41 

41 
41 



45 



print comment 

print heading 

print result 

prompt device 

prompt option 

prompt test 

protection of customer data 

pseudo open 49 



random data generator 50 

READD 29 

reformatted volumes 13 

register conventions 14 

REI 11,19 

REI initialize #1 41 

REI initialize #2 42 

REI nucleus 27 

REI terminate 42 

remote analysis center 14 

restore label routine 19 

RETAIN/ 370 14 

RETAIN/370 interface 11 

return code usage 14 

routine 37 



11 



sense message 40 
size requirements 10 
SOSP 21 

space allocation 12 
standard linkage 56 
STOPREI 19 

structure of OLTEP 10 
supervisor 9 
support modules 27 

pre-release 25 45 
symbols 53 
SYSLST device 34 



tape devices 12 
tape label 12 

ASCII 12 

expiration date 12 

restoring 12 

security bit 12 

standard 12 
terminate OLTEP 45 
test decode 21 
test volume 11 
test-run definition 10 

test completion communications interval 
timing test programs 13 
timing tests 50 
TP line connection 27 
transient manager 15,18 
transient modules 11 



11 



scheduler 15,22 

section descriptions 176 

section preface 175 



user language 10 
uses of OLTEP 9 



WAITIO 32 



Index 179 



Reader's Comments Form 



OLTEP Logic 



GY24-5154-2 



Your comments, accompanied by answers to the following questions, help us produce 
better publications for your use. If your answer to a question is "No" or requires 
qualification, please explain in the space provided below. Please give specific page 
and line references with your comments when appropriate. All comments will be 
handled on a non-confidential basis. Copies of this and other IBM publications can 
be obtained through IBM branch offices. 



Yes 



No 



Does the publication meet your needs? 



□ 



# Did you find the material: 

Easy to read and understand? 

Organized for convenient use? 

Complete? 

Well illustrated? 

Written for your technical level? 



□ 


□ 


D 


□ 


D 


□ 


a 


a 


D 


D 



What is your occupation? . 



How do you use this publication: 

As an introduction to the subject? □ 

For advanced knowledge of the subject? □ 
For information about operating procedures? □ 



As an instructor in a class? CD 
As a student in a class? □ 
As a reference manual? □ 



Your comments: 



Thank you for your cooperation. No postage stamp necessary if mailed in the U.S.A. 
If you would like a reply, please supply your name and address on the reverse side of 
this form. 



Staple 



GY24-5154-2 



Your comments, please 



This publication is one of a series that serves as a reference source for systems 
analysts, programmers, and operators of IBM systems. Your answers to the 
questions on the back of this form, together with your comments, help us 
produce better publications for your use. Each reply is carefully reviewed by 
the persons responsible for writing and publishing this material. All comments 
and suggestions become the property of IBM. 

Please note: Requests for copies of publications and for assistance in using 
your IBM system should be directed to your IBM representative or to the IBM 
sales office serving your locality. 



Fold 



Fold 



FIRST CLASS 
PERMIT NO. 170 
ENDICOTT, N. Y. 



BUSINESS REPLY MAI L 

NO POSTAGE NECESSARY IF MAILED IN THE UNITED STATES 



POSTAGE WILL BE PAID BY 

IBM Corporation 
P. O. Box 6 
Endicott, N. Y. 13760 




Attention: Programming Publications, Dept. G60 



O 

o 

C/) 



Cr 



CO 



5* 

<D 

Q. 

5' 
c 
in 
> 



Q 
-< 

to 



Fold 



Fold 



If you would like a reply, please print: 



en 

4* 



ro 



Your Name, 



Company Name. 



Department 

Street Address. 

Gty 

State 



Zip Code. 



International Business Machines Corporation 

Data Processing Division 

1133 Westchester Avenue, White Plains, New York 10604 

[U.S.A. only] 

IBM World Trade Corporation 

821 United Nations Plaza, New York, New York 10017 

[International] 



GY24-5154-2 



o 
o 

c/> 

O 

f- 
H 
m 
-d 

CO 
CO 
CD 

o 

CO 



5' 

r-¥ 
CD 
Q. 

5' 
c 
in 
> 



Q 
■< 

ro 

4* 



CJ1 



International Business Machines Corporation 

Data Processing Division 

1133 Westchester Avenue, White Plains, New York 10604 

[U.S.A. only] 

IBM World Trade Corporation 

821 United Nations Plaza, New York, New York 10017 

[International] 



